$result = join "" => /(..).?.?/gs; # Assume string in $_