#!perl -p
s/[ :a].*//