/foo/ and $_ .= '1' for (my $d = 'Shakespear is the foo');