echo "ATDT123456 \r\nBUSY" | perl -e 'local $/=undef;@chars=split //, +<STDIN>; for(@chars) {print $_ . " " . ord($_) . "\n"; }' [download]
In reply to Re^4: Regex Help by eXile in thread Regex Help by Dru