Select Code to Download

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

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

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