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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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