gno/usr.bin/awk/tests/ch2p39.awk

{ $1 = substr($1, 1, 3); print $0 }