my $check = 'a';
$check++ for 1 .. 5;

##</code><code>##

my $check = 'cd';
substr $check, 0, 1, q();

##</code><code>##

my $check = 'sp';
$check =~ s/^.//;