Help for this page

Select Code to Download

Select or download this

#!perl

...
  {
    printf("%d\t%s\n", $linetimes{$key}, $key);
  }

Select or download this

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