#! perl
use strict;
use warnings;

my $x =  "Mmm...donut, thought Homer";
   $x =~ /^(Mmm|Yech)\.\.\.(donut|peas)/;   # matches

foreach my $expr (1 .. $#-)
{
    printf "Match %s: '%s' at position (%d, %d)\n",
            $expr,
            substr( $x, $-[$expr], $+[$expr] - $-[$expr] ),  # fixes the error
            $-[$expr],
            $+[$expr];
}

##</code><code>##

print "Number of matches: $#-\n";