perl -e 'map {printf ("%x",ord($_))} split(//,"MYSTRING")'