$foo =~ s/(tim)(\d{5})(struppi)/$1tuwas($2);$3/e;

sub tuwas {
}