Select Code to Download

$str = 'Hulk hate classless system with means of manufacturing given t
+o working class! Hulk crush puny Marxists!';
if ( $str =~ /Hulk hate (\w+)/ ) {
    $str = '';
    my $word = $1;
}

if ( $str =~ /Hulk hate \w+/ ) {
    # $-[0] == 0
    # $+[0] == 19
...
=cut

}