in reply to Regular expression
Maybe this will work:
Might be not too efficient.while (<DATA>) { print "$1 $2 $3\n" if /^\S+\s+(\S+)\s+(\S+)\s+\S+\s+\S+\s+\S+\s+(\ +S+)$/; }
|
---|
In Section
Seekers of Perl Wisdom