#!perl -p
s/\D.*//