Select Code to Download

~$ perl -e '$_="qwerty"; s/r/print pos(). "\n";/e; print $_;'
3
qwe1ty

perl -e "\$_='qwerty'; s/r/print pos(). \"\n\";print \$&.\"\n\";/e; pr
+int \$_ . \"\n\";"
3
r
qwe1ty
~$

#!/usr/bin/perl
use strict;
use warnings;
...
my $var='four'; 
$var =~ s/[fu]/say pos($var); say $&;/eg; 
print $var . "\n\n";

~/pl_test$ perl braveghost.pl
0
q
...
1o1r

~/pl_test$