perl -e 's++120101108065+;eval reverse q~"fd572774","*H" kcap tnirp~;$_ &&= join "", map{chr} (reverse /(\d{3})(\d{3})(\d{3})(\d{3})/);print;'