# perl -e "\$_='qwerty';\$v='_MATCH_'; s/r/print \$v/; print \"\n\".\$_;";

qweprint _MATCH_ty

# perl -e "\$_='qwerty';\$v='_MATCH_'; s/r/print \$v/e; print \"\n\".\$_;";
_MATCH_
qwe1ty

# perl -e "\$_='qwerty';\$v='_MATCH_'; s/r/print \$v;\$v/e; print \"\n\".\$_;";
_MATCH_
qwe_MATCH_ty


##</code><code>##

perldoc -f print
       print FILEHANDLE LIST
       print LIST
       print   Prints a string or a list of strings.  Returns true if
               successful.  ...