$fullpathfile="/dir1/dir2/filename.txt";
$fullpathfile=~m/[^\/]*$/;
$filename=$&;
$directory=$`;