Select Code to Download

  if ($? == -1) {
      print "failed to execute: $!\n";
...
  else {
      printf "child exited with value %d\n", $? >> 8;
  }

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