Select Code to Download

# parses text like:
# name = japhy  age = "22"  lang = 'Perl'
...
    ( \S+ )
  )
}xg;

while ( <DATA> ) {
  my %data = $_ =~ m{
...
      \S+
    )["']?
  }xg;