$ cat 1078350.in
12-12
12-12-12
12-13-12-13
12-12-13-13
12-13-13-14
$ perl -pe '1 while s/(\d\d)(.*?)(?:-\1)/$1$2/g' 1078350.in
12
12
12-13
12-13
12-13-14