Win8 Strawberry 5.8.9.5 (32)  Thu 12/17/2020 21:59:18
C:\@Work\Perl\monks
>perl -Mstrict -Mwarnings
my $s = " info

                    John


                info - 2000


                  Kent  ";

my $word;

while ($s =~ m{ [^[:alnum:]]* ([[:alnum:]]+) }xmsg) {
  if (defined $word) {
    print "next word after '$word' is '$1' \n";
    }
  else {
    print "first word is '$1' \n";
    }
  $word = $1;
  }
^Z
first word is 'info'
next word after 'info' is 'John'
next word after 'John' is 'info'
next word after 'info' is '2000'
next word after '2000' is 'Kent'