#!/usr/bin/perl

use warnings;
use strict;

my $src = "Teewurst";

# Zeichen "-" zwischen Tee und wurst einfuegen
$src =~ s/(?<=Tee)(?=wurst)/-/;

print $src, "\n";