Select Code to Download

my $a = '/export/home/test/great';
$a =~ / (.*) (\/[^\/]*) /x;
...
print "a: $a\n";
print "front: $front\n";
print "back: $back\n";

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