Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -w

...
exit 1 if $yesno =~ /^[nN]$/;

print "Did not stop, sorry!\n";

Select or download this

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