Select Code to Download

print( "one\n"), print( "two\n" ) if (1);

do{ print "one\n"; print "two\n"; } if (1);

if( 1 ){ print "one\n"; print "two\n"; }

print "one\ntwo\n" if (1);

while( my $input = <> ) {
    warn( "Bad input" ), next unless $input =~ m[...];
    ...
}