while ($str ne '') { $str =~ s/^\s+//; # REMOVE LEADING WHITESPACE last if ($str eq ''); # LEAVE LOOP EARLY IF IT WAS ALL-WHITESPACE if ($str =~ /^\{/) { # STARTS WITH '{' ... elsif ... ...