Select Code to Download

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

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

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

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