perl -le 'use Inline Awk=>q({print $1}); awk()' file