> my ( $basename ) = reverse split /\//, "/tmp/app/foo";

The only problem with this is that it's not portable: it'll work on Unix, but probably not on MS Windows.