( $base, $ext )= $file =~ /^(.*?)([.][^.]*)?$/s;

$ext= ( $base= $file ) =~ s/([.][^.]*)$// ? $1 : "";

$base= substr( $ext= $file, 0,
  0xffff & rindex($file,"."), "" );