Help for this page
$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@/