use strict;

my $str1 = 'Dies ist ein Text';

$str1 =~ m/^.*(ist).*(Tex).*/;
print "1 : '$1', 2: '$2'\n";

$str1 =~ m/^.*(ein).*/;
print "1 : '$1', 2: '$2'\n";