my $a = '/export/home/test/great';
$a =~ / (.*) (\/[^\/]*) /x;
my $front = $1;
my $back = $2;

print "a: $a\n";
print "front: $front\n";
print "back: $back\n";

##</code><code>##

a: /export/home/test/great
front: /export/home/test
back: /great