Anzahl der Matches eines RegExps ermitteln

[Kess]

Hi n.d.,

$a=" D SS a  4 UE X I T";$b="h5S1 VA S H.N  T  EA5 E N9";
$c=" T E 24  C A  M5L  3BA H M";$d="  A   1ERX 2 I4  S ";
sub Antwort($){$b^$c.",".($a^$d)."? ;-)".shift}sub lautet($){q{
}}

die Antwort lautet "Nein, nur Deutsche Mark"
__END__

Greetz
 Kess *kann das auch ;)*
--
print "Not Another Perl Hacker";