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