perl -pli.bak -e 's/^.{18}\KY/H/ if $. > 1' filename