my @look_for = ($name,$nerd,$noodle,$froodle,); foreach my $item (@look_for) { $item =~ s/$i_seek/ /g; } ($name,$nerd,$noodle,$froodle,) = @look_for;