#!/usr/bin/perl

use strict;
use warnings;

my ($eins,$zwei) = 'Test im Test' =~ /(es).*(es)/;
print "$eins -- $zwei\n";

   ($eins,$zwei) = 'Perl ist die beste Sprache' =~ /(es).*(es)/;
print "$eins -- $zwei\n";