# get the file from the form and call it $file
$file =~ s/(.*)\.(.*)$/$1/;
$ext = $2;
$file =~ s/\W//g;
$file = "$fileName\.$ext";