perl -e'chop string;'