Select Code to Download

$var !~ s/H/W/;

(not ($var =~ s/H/W/))

#!/usr/bin/perl -w
use strict;
...
print $var;

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