perl -wM5.012 -CDS -pe '$.==1 && s/\A\x{FEFF}//' utf8_bom.pl \
	| perltidy -utf8 \
	| perl -wM5.012 -CDS -pe 'INIT{print "\x{FEFF}"}' \
	> utf8_bom_tidy.pl