system( "$^X -pl -e 's/foo/bar/g' $rfile $afile" );

##</code><code>##

exec "$0 $rfile $afile" unless @ARGV;
while (<>) {
    # Do whatever you want here.
}