Help for this page

Select Code to Download


  1. or download this
    my $str = 'Hulk hate classless system with means of manufacturing give
+n to working class! Hulk crush puny Marxists!';
if ($str =~ /Hulk hate \w+/) {
    print "\$-[0] <$-[0]> \$+[0] <$+[0]>\n";
...
__END__
$-[0] <0> $+[0] <19>
word <classless system with means o>
  2. or download this
    *starts = \@-;
*ends   = \@+;
our (@starts, @ends);
...
__END__
$-[0] <27> $+[0] <54>
word <manufacturing>