in reply to Re: regular expressions on the basis of suffix
in thread regular expressions on the basis of suffix

Or just the number you need:

my $var = (split /\s/,"28504 0 abc 148782859 42 101M")[3]

In Section Seekers of Perl Wisdom