perl -ne's/(.)([^\1]*)/print "$1-$2\n"/eg;'
A234
A-234

AA
A-A

A-\
A--\

A-1
A--1

A-A
A--A

A1
A-1