my %cookies; 
#lots more code
if (%cookies = fetch CGI::Cookie) {

##</code><code>##

if ( my %cookies = fetch CGI::Cookie ) {
} 

##</code><code>##

if (CONDITION1) { 
  if (CONDITION2) { 
  }
}

##</code><code>##

if (CONDITION1 && CONDITION2) {
}

##</code><code>##

while( my($login, $junkfile) = split /\|!!\|, <FH>) {
 if ($login eq $id) {
     chomp $junkfile;
     $exact_match = $junkfile;
     last;
 }
}

##</code><code>##

perl -e 'print "How sweet does a rose smell? "; chomp ($n = <STDIN>); $rose = "smells sweet to degree $n"; *other_name = *rose; print "$other_name\n"'