Frage zu RegEx

[Beat]

Es gibt bestimmt einen eleganten regulären Ausdruck, der das viel schneller und mit viel weniger Code erledigen kann. Ich habe nur leider keinen Ansatzpunkt, wie der aussehen könnte. Hat jemand eine Idee?

Regex sind nicht immer besser. Ich würde genauso zu Hashkey Lookups tendieren.

Achte auf \Q \E!

#!perl  
  
use warnings;  
use strict;  
  
my $all = 'a b c d e f';  
my $seen= 'a c';  
my $result = $all;  
foreach( split/\s+/, $seen ){  
  $result =~ s/\Q$_\E(\s+|$)//;  
}  
  
print $result, "\n";  
<>;  
exit;  

mfg Beat