Help for this page
# parses text like: # name = japhy age = "22" lang = 'Perl' ... ( \S+ ) ) }xg;
while ( <DATA> ) { my %data = $_ =~ m{ ... \S+ )["']? }xg;