Select Code to Download

#!/usr/bin/perl
use strict;
...
  print "DEBUG: score was $score\n";
  return $score;
}

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