Asszem, általánosságban ez a szándékod: perl -e '$s="AAAezt, EZT nem, de ezt meg ezt igen\n"; $s=~s/AAA(ezt)/erre/; $s=~s/$1/amarra/g; print $s' erre, EZT nem, de amarra meg amarra igen