Select Code to Download

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

...

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