my ($var) = 'Dies ist ein Test' =~ /D(.*)es/;
print $var,"\n";
# vs.
my ($var) = 'Dies ist ein Test' =~ /D(.*?)es/;
print $var,"\n";