Hab grad kein Perl zur Hand aber eigentlich sollts doch mit look ahead funktionieren.
Sowas in der Art:

/(\w(?=\w))/g