$a = '/export/home/test/great';
if($a =~ m/(.*)\/(.*?)$/){
    $dir = $1; 
    $file = $2;
}
print "$a\n$dir\n$file\n";
__END__
/export/home/test/great
/export/home/test
great