http://qs1969.pair.com?node_id=11148405


in reply to Regex: matching any Number then a hyphen

here u go u lazy bum 
perl -CSD -pe 's/^\d+\K\s*[-.\x{2013}]/./'

[download]

In Section Seekers of Perl Wisdom