1 2 3 4 5 6 7
#!@PERL@ # Convert hyphens between numbers to figure dashes while (<>) { s#(?<=\d)-\s*(?=\d)#--#g; print; }