in reply to Regex help

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