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