Select Code to Download

c:\@Work\Perl\monks>perl -wMstrict -le
"my @data = (
...
nothing parsed from 'X'
nothing parsed from ''
'what' and 'ever' are NOT equal

my $rx_ya  = qr{ \S (?: \s* \S+)* }xms;
my $rx_ex  = $rx_ya;
my $rx_sep = qr{ \s+ : \s+ }xms;
...
$datum =~ m{ \A \s* ($rx_ya) $rx_sep ($rx_ex) \s* \z }xms;