##
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";
}