prints:my $ham = "spam\tspam\tspam\t\tyam\tclam"; my @jam = ($ham =~ (m/^[^\t]+\t[^\t]+\t([^\t]+)(\t\t)([^\t]+)\t[^\t]+$ +/)); print join("\n", '**', @jam, '**', '');
** spam yam **
In reply to Re: How to capture quantified repeats?
by umasuresh
in thread How to capture quantified repeats?
by whatever
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |