echo "ATDT123456 \r\nBUSY" | perl -e 'local $/=undef;@chars=split //, <STDIN>; for(@chars) {print $_ . " " . ord($_) . "\n"; }'