perl -MO=Deparse,-d \
  -le \
  'my $coin = int(rand(2)); 
   print $coin ? q{heads} : 1 ? q{tails} : q{};'
BEGIN { $/ = "\n"; $\ = "\n"; }
my $coin = int rand 2;
print $coin ? "heads" : "tails";
-e syntax OK

##</code><code>##

perl -MPerl::Tidy -le '
    my $code = q{my $coin = int(rand(2)); 
      print $coin ? q{true} : 1 ? q{false} : q{};}; 
    my $processed; 
    Perl::Tidy::perltidy( 
        source => \$code, 
        destination => \$processed, 
        argv => q{-npro -pbp -nst -se -bot -l=40}, 
    ); 
    print $processed;'
my $coin = int( rand(2) );
print $coin ? q{true}
    : 1     ? q{false}
    :         q{};