while (<>) { chomp; # strip record separator @Fld = split(' ', $_, -1); if ($awk) { print $Fld[2] . '=' . $Fld[4]; }