#!perl -p s/h?/h/