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