$a="export/home/test/great/great";

##</code><code>##

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

##</code><code>##

-- 
Joost       downtime n. The period during which a system
            is error-free and immune from user input.