if (m/\/(\w+\.?\w*)$/){
          $filename = $1;
     }


##</code><code>##


/\/([^\/]+)$/