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