if($files=~/(.*?)\/([^\/]+)$/) {
    $f_name = $2;
  }

##</code><code>##

  # match all non-slashes up to end of line
  if($files=~m|([^/]+)$|) {
    $f_name = $1;
  }

##</code><code>##

  # match everything beyond last slash
  if($files=~m|.*/(.+)|) {
    $f_name = $1;
  }