if (undef($a) || undef($b)) { ... } #### if ($a = 1) { ... } #### my ($key, $value) = s/(\w+)=(.*)/$1: $2/; #### for my $splort (foo()) { do { chop($splort); last if $splort eq $root; } until (happy($splort)); print "happy or root\n"; }