perl -MO=Deparse -l -e 1 
BEGIN { $/ = "\n"; $\ = "\n"; }
'???';
-e syntax OK

perl -MO=Deparse -a -e 1

LINE: while (defined($_ = readline ARGV)) {
    our @F = split(' ', $_, 0);
    '???';
}
-e syntax OK

perl -MO=Deparse -n -e 1

LINE: while (defined($_ = readline ARGV)) {
    '???';
}
-e syntax OK

perl -MO=Deparse -p -e 1

LINE: while (defined($_ = readline ARGV)) {
    '???';
}
continue {
    die "-p destination: $!\n" unless print $_;
}
-e syntax OK