oder man wartet auf denjenigen, der aus dem vorschlag von pq ein fertiges skript baut, damit man gar nicht mehr nachdenken braucht...

im übrigen, @sitescriptor, ist "return undef" meistens nicht sinnvoll. deshalb hab ich es in meinem vorschlag weggelassen. im skalaren kontext ist ein "return" automatisch ein "return undef", und im listenkontext würde "return undef" eine liste mit genau einem element, nämlich undef, erzeugen. daher sollte man sich angewöhnen, einfach immer nur "return" zu schreiben. Perl Best Practices, wenn ich mich recht erinnere.