printf "file = %30s  ext= %10s\n", $name, $type;

##</code><code>##

my ($filename, $ext) = split /\..*/, $file;

##</code><code>##

my ($filename, $ext) = $file =~ /^(.+)(?:\.(.*))?$/s

##</code><code>##

2;0 juerd@ouranos:~$ perl -e'undef christmas'
Segmentation fault
2;139 juerd@ouranos:~$