in reply to splitting results

Another guess, less elaborate than (but along similar lines as) choroba's here:

Win8 Strawberry 5.8.9.5 (32) Wed 12/16/2020 18:30:38 C:\@Work\Perl\monks >perl -Mstrict -Mwarnings my $s = <<EOT; info john 100 - 2000 kent EOT my @field = grep { not m{ \A - \z }xms } $s =~ m{ \S+ }xmsg ; $field[2] += 100; my $t = "data:$field[0] $field[1]:$field[2] $field[4]:$field[3]"; die "bad response '$t'" unless $t eq 'data:info john:200 kent:2000'; print "'$t' response ok \n"; ^Z 'data:info john:200 kent:2000' response ok


Give a man a fish:  <%-{-{-{-<