а можно не страдать фигней и так написать
a=~s/\n//i; # в перем $a - твой урл
my @txt=split(//,$a);
foreach(@txt) {$wer=ord($_);$wer=sprintf "%%%x",$wer;$tekst.=$wer;}
print $tekst;