#!/usr/bin/perl -w
use strict;

my $mystring = "http://192.162.143.201/nightly_results/2009_12_02/log_lcla114.ping.com_64.html";

if($mystring =~ m!([^/]+)!){  
my $file=$1; 
print "field= $file\n";
}