perl -le 'print join q{-}, map ord,split q{} for <*mero.png>'