in reply to Out of Memory in Perl

 ack '--output=$1' 'ms\s+(\S+)\s*$' < infile > outfile

Replies are listed 'Best First'.
Re^2: Out of Memory in Perl
by Anonymous Monk on Jul 08, 2012 at 19:25 UTC
     ack  "ms\s+\K(\S+)\s*$" ....
[reply]
[d/l]
      $ perl -lne " print $1 if m{ms\s+\K(\S+)\s*$}"  < infile > outfile
[reply]
[d/l]

In Section Seekers of Perl Wisdom