Examples from POD while (<>) while ( <> ) while (/(\w+)\s+fish\b/gi) { ... } if (/=item (\S+)/ and $level == 1) { ... } if ($person->{role} =~ /kid|son|daughter/) { ... } if ($email =~ /([^@]+)@(.+)/) { ... } while (my($key,$val) = each %HIST) { ... } What do you think about making a little more room inside parens: while ( <> ) while ( /(\w+)\s+fish\b/gi ) { ... } if ( /=item (\S+)/ and $level == 1 ) { ... } if ( $person->{role} =~ /kid|son|daughter/ ) { ... } if ( $email =~ /([^@]+)@(.+)/ ) { ... } while ( my($key,$val) = each %HIST ) { ... } REFERENCES Perlintro.pod suggests: =item if if ( condition ) { ... } elsif ( other condition ) { ... } else { ... } There's also a negated version of it: unless ( condition ) { ... } =item while while ( condition ) { ... } There's also a negated version, for the same reason we have C<unless>: until ( condition ) { ... }Thread Next