perl -e'@_=qw(80 101 114 108);while(@_){$_=shift(@_);print chr($_)."\n"}'