[quote=pq,02.09.2004, 16:18]
da würde ich das hier
 $part = join "", (split /(?=-|_)/, $filename)[0..1];
vorziehen.[/quote]
ach, was red ich.
 $part = join "", (split /(?=-|_)/, $filename, 3)[0..1];