$ perl -wle '$_ = `clear`; s/(.)/sprintf "0x%02x", ord $1/ge; print'
0x1b0x5b0x480x1b0x5b0x4a
$ perl -we 'print chr for 0x1b,0x5b,0x48,0x1b,0x5b,0x4a'
$ # Clears the screen!
$ clear | cat -v  
^[[H^[[J