Select Code to Download

if ($pubupload =~ m![^.]\.([^./\\]+)$!) {
  $extension = $1;
}

$pubupload = 'C:\Documents and Settings\Administrator\Desktop\china.tx
+t';
DB<1> if ($pubupload =~ m![^.]\.([^./\\]+)$!) { $extension = $1; }
DB<2> print "[$extension]"                                 
[txt]