Thanks haukex++ (I swear last night abs was not working!!!!!!)

EDIT!: ouchhhh I was doing the reverse!!!!!:

# this is wrong, note new($x)!! abs($y) it should be the reverse
my $u = URI->new($x); # this is wrong
print $u->abs($y), "\n"; # this is wrong
[download]

Edit2: that's definetely an X-Y problem hehe