http://www.perlmonks.org?node_id=1008271


in reply to Regex help

$var =~ s/.*\///;