#!/usr/bin/perl

use strict;
use warnings;

my $string = "hallsso";

$string =~ s/
 \b         # wortgrenze
 ([A-Za-z]*?)   # ev. Buchstaben bis zum ersten vorkommen
 ([A-Za-z]) \2  # des doppelbuchstabens
 ([A-Za-z]*?)   # noch ev. weitere buchstaben, egal, ob doppelt oder nicht
 \b        # bis zur naechsten wortgrenze
/($1$2$2$3)/gx;

print $string,"\n";