$a =~ s#/great\z##;
  print $a; # prints "/export/home/test/great"