Help for this page

Select Code to Download


  1. or download this
    # Standard open for input, open for output code
  2. or download this
    if ($infile eq $outfile)
{
  die "Same filename given for both input and output!";
}
  3. or download this
    @/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
map{y/X_/\n /;print}map{pop@$_}@/for@/