Select Code to Download

#! perl
use strict;
...
my  $string  = 'The quick brown fox jumps over the house of the lazy d
+og';
my  @matches = $string =~ /(?=(the .*? dog))/gi;
dd \@matches;

19:36 >perl 1202_SoPW.pl
[
...
]

19:37 >