BEGIN
 {
  use File::Spec;
  use strict;
  my ($currdir, $currdirp, $currdirpp);
  my ($zvolume, $zdirs, $zfile) = File::Spec->splitpath(
                                              File::Spec->rel2abs($0) );
  my @dirs = File::Spec->splitdir($zdirs);
  $currdir = File::Spec->catpath($zvolume, $zdirs, '');
  pop @dirs;
  $currdirp = File::Spec->catpath($zvolume, File::Spec->catdir(@dirs), '');
  pop @dirs;
  $currdirpp = File::Spec->catpath($zvolume, File::Spec->catdir(@dirs), '');
  # Now do something with those variables.
 }


##</code><code>##

@/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
map{y/X_/\n /;print}map{pop@$_}@/for@/