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