Select Code to Download

cat lorem.txt

...
Lorem ipsum dolor sit amet, consectetur adipisci elit,
sed do eiusmod tempor incidunt ut labore et dolore magna aliqua.

perl -MO=Deparse -M"5;$S=shift;$R=shift;open $o,'>','new2.txt'" -ne "c
+homp;if($_=~/$S/){print qq/$_ $R?/;($_=$_)=~s/$S/$R/ if<STDIN>=~/y/}p
+rint$o $_.$/"
sub BEGIN {
...
    print $o $_ . $/;
}
-e syntax OK