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