Help for this page
DB<17> $line = "ID=1 First=John Last=Doe AGE=42"; ... 1 'John' 2 'Doe' 3 42
my ($id, $first, $last, $age) = $line =~ /^ID=(\d+)\s+First=([a-zA-Z]+ +)\s+Last=([a-zA-Z]+)\s+AGE=(\d+)\s*$/;
$word = qr/[A-Z][a-z]+/;
$word = qr/[a-z]+/i;