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