Select Code to Download

$_ = "aaaabbbbcccc";
if ( not /^(\w\w)(\w\w)(\w\w)$/ ) {
...
    }
}
print "$_ = $1 $2 $3\n";

$_ = "aaaabbbbcccc";
if ( not /^(\w\w)\w\w(\w\w)\w\w(\w\w)\w\w$/ ) {
    die "failed";
}
print "$_ = $1 $2 $3\n";