#!/usr/bin/perl

use strict;
use warnings;

'Dies ist ein Test' =~ /(D).*?(t).*?(T)(e)/;
print $#+;