What about
chomp($line); push(@temp, (split(' ', $line, 8))[-1]); [download]
Tested.
In reply to Re: Regular Expressions Matching with Perl by ikegami in thread Regular Expressions Matching with Perl by nimdokk