Select Code to Download

#!/usr/bin/perl -w
use strict;
...
# But I didn't expect this ...
$var !~ s/H/W/;
print $var;

Plankton@linux:~/perl/perlmonks> ./tilda_q.pl
Useless use of not in void context at ./tilda_q.pl line 18.
...
WooHoo
HooHoo
WooHoo