use strict;
use warnings;

my $op = shift;

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

__END__
your
hand
is
too
cnew
to
hnew