~/entwicklung 116> perl -le 'my $string = q~Dies ist ein Test.~; my ($found) = $string =~ /(.*?)i/; print $found'
D