Anzahl der Matches eines RegExps ermitteln

[n.d. parker]

Moin Swen,

Und was heisst denn "Haste ma 'ne Mark als Gegenleistung für die tolle Antwort?" auf perlisch ?

#!/usr/bin/perl -w -- n.d.p.
use strict; sub Frage($){(7*
3<<1).shift}sub lautet($){q{
}}

die Frage lautet "Haste mal 'nen Euro?"
__END__

Viele Gruesse,

n.d.p., angebend ;-)
--
print "Just Another Perl Hacker";