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{};