$awk '{print $1}' filename
みたいなのをPerlでやるとどうなりますか？
$perl -e 'while(<>){print +(split " ")[0]."\n"}' /etc/services
これより簡単な方法があれば教えてください。