Select Code to Download

my $regexp = 'hello.*world';

...
        print sprintf "Match %02d (%d, %d):\t[%s]\n", $match, $-[$matc
+h], $+[$match], substr( $_, $-[$match], $+[$match] );
    };
};