($filename) = $filename =~ m{([\w./]+)}smx
 or croak "Bah!";