#my $s1 = thisstring;

##</code><code>##

use strict;
use warnings;
use diagnostics; # makes warnings verbose ++