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