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