use File::Basename;
$foo = basename($bar);