#!perl -p s/h?//