Help for this page
#!/usr/bin/env perl ... my $string_re = qr{(?><SOH>|\^A|\cA)}; say for split $string_re => $test_string;
$ pm_soh_split.pl soh_string ... ctrl_a_string soh_string caret_a_string