map { $string =~ s/($_)(?:$|[\.\s]+)//ig }
qw  { bla hallo tschuess };