#!/opt/gnu/bin/perl -w
use strict;
$a = 40; # error because of use strict? no
$b = $a; # error again ? no

##</code><code>##

perl -e "$_=*F=>y~\*martinF~stronat~=>s~[^\w]~~g=>chop,print"