Naja dann bekomme ich ja den "zerflückten" Regex zurück. Daher hatte ich ja i$filename = $file; gemacht.

Ein print "$filename\n"; in der sub würde sowas wie "2008 03 10 15 46 03 031335"
liefern.