#!perl -p chop