Select Code to Download

my $op = shift;

...
    eval $op;
    print $_, "\n";
}

perl test.pl 's/old/new/'

your
hand
...
cold
to
hold