- or download this
use warnings;
use strict;
...
{
print "matched -->$1<--\n";
}
- or download this
matched -->ThisIsWhatIWant<--
- or download this
use YAPE::Regex::Explain;
my $re = qr/#([^?]*)/;
my $p = YAPE::Regex::Explain->new($re)->explain;
print "$p\n";
- or download this
The regular expression:
...
----------------------------------------------------------------------
) end of grouping
----------------------------------------------------------------------