use warnings;

@a=(sub{$O=$_[0]},sub{$O=$_[0].$O},sub{$O.=$/;shift},sub{
($_=$O)=~s~$_[1]~~;print});*{$_.q;::AUTOLOAD;}=sub{shift(
@a)->(@_)}for(v74,112.117.116,116.104.101,82.65.80.72);#!

I put the J in RAPH and remove the R