sub foo {
<tab>while (<FOO>) {
<tab><tab>chop;
<tab><tab>   /^ \s* (\w+) \s* = \s* " (.*) " $/x
<tab><tab>or /^ \s* (\w+) \s* = \s*   (.*)   $/x
<tab><tab>or die "Malformed line $. in FOO";
<tab>}
}