$a='/usr/local/prj/code/prog/prog1';

($path)=$a=~m#.+/(.+?)$#;

print $path;