use URI;
sub URI::file { return (shift->path_segments)[-1] }
my $mystring = "http://192.162.143.201/nightly_results/2009_12_02/log_
+lcla114.ping.com_64.html";

die URI->new( $mystring )->file;
__END__
log_lcla114.ping.com_64.html at - line 5.
[download]