Help for this page
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]