# Standard open for input, open for output code


##</code><code>##

if ($infile eq $outfile)
{
  die "Same filename given for both input and output!";
}


##</code><code>##

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