So it would seem that castaway could trivially implement strict compliant code without all the so-called bother that thus ensues:

#!/usr/bin/perl -w
use strict;

1 =~ m{(?{{
    $foo = 42;
    $bar = 2;
    print $foo * $bar, "\n";
}})};
[download]

;)