Cargo-cult programming at work here! How about shortening this to more simply ...

$data =~ s/%([\da-fA-F]{2})/chr(hex($1))/eg;
[download]

 

perl -e 's&&rob@cowsnet.com.au&&&split/[@.]/&&s&.com.&_&&&print'