sub I      {$O=$_[0]}
sub put    {$_[0]}
sub the    {$_[0]}
sub J      {'J'.$_[0]}
sub in     {$_[0]}
sub RAPH   {82.65.80.72}
sub remove {$O=~s~$_[0]~~;print$O."\n"}
sub R      {'R'}

I put the J in RAPH and remove the R