Select Code to Download

  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;