Select Code to Download

c:\@Work\Perl>perl -wMstrict -le
"my $record = do {
...
"  "ID=2  First=Joe  Last=42  AGE=Doe"
id '1'  first 'John'  last 'Doe'  age '42'
malformed record: 'ID=2  First=Joe  Last=42  AGE=Doe' at -e line 1.