$ od -c a.pl 0000000 357 273 277 # ! / u s r / b i n / p e 0000020 r l \n p r i n t ( " H e l l o 0000040 W o r l d \ n " ) ; \n \n 0000054 $ a.pl -bash: ./a.pl: cannot execute binary file $ perl -i.bak -ple"s/^\xEF\xBB\xBF// if $.==1" a.pl $ od -c a.pl 0000000 # ! / u s r / b i n / p e r l \n 0000020 p r i n t ( " H e l l o W o r 0000040 l d \ n " ) ; \n \n 0000051 $ perl a.pl Hello World