$ perl -MO=Deparse -e'print $a'
print $a;
-e syntax OK
$ perl -MO=Deparse -e'{print $a}'
{
    print $a;
}
-e syntax OK
$ perl -MO=Deparse -e'{print $a}print $a'
{
    print $a;
}
print $a;
-e syntax OK