Select Code to Download

#!/usr/bin/env perl

...
print "Original string: $str\n";
print "Parts separated by some dash:\n";
print "$_\n" for split $re, $str;

Original string: a-b–c—d
Parts separated by some dash:
...
b
c
d

$ ./pm_11137036_re_alt_dashes.pl | cat -vet
Original string: a-bM-bM-^@M-^ScM-bM-^@M-^Td$
...
b$
c$
d$