perl -e'$_="jason carter";
?\s\w+?;$@=pack"h*","0246275616d65627";
s.a.u.;s#on#t#;s,c,,;s|r|no|;s~e~h$&~;
print"$_ $^X$@$/";'