$line =~ s{ \s (M?\d{2}) / (M?\d{2}) \s }
          { ' ' . int(convert($1)) . '/' . int(convert($2)) . ' ' }xeg;