perl -le 'while(<>) { my ($a, $b, $c) = split; print "$a $b $c"; }'

when fed A B C D E produces A B C as output, not A B 3.