my $op = shift;

for (qw(your hand is too cold to hold)) {
	eval $op;
	print $_, "\n";
}

##</code><code>##

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

##</code><code>##

your
hand
is
too
cold
to
hold