use warnings; use strict; local $\ = "\n"; # -l while (<>) { # -n chomp; # -l my @F = split; # -a print $F[2]; # -e }