Select Code to Download

#! perl -w
my $haystack = "abcdefghijklmnopqrstuvwxyz";
...
match at
Use of uninitialized value in concatenation (.) or string at C:\test\t
+est.pl line 7.
match at

    $x = "Mmm...donut, thought Homer";
    $x =~ /^(Mmm|Yech)\.\.\.(donut|peas)/; # matches
...
    Match 1: 'Mmm' at position (0,3)
    Match 2: 'donut' at position (6,11)