mastering perl

[...]... version of the perl documentation page, which I get with perldoc -t: % perldoc -t perl | perl- grep2.pl "\b(\S)\S\1\b" perl5 83delta Perl changes in version 5.8.3 perl5 82delta Perl changes in version 5.8.2 perl5 81delta Perl changes in version 5.8.1 perl5 8delta Perl changes in version 5.8.0 perl5 73delta Perl changes in version 5.7.3 perl5 72delta Perl changes in version 5.7.2 perl5 71delta Perl changes in... perl5 71delta Perl changes in version 5.7.1 perl5 70delta Perl changes in version 5.7.0 8 | Chapter 2: Advanced Regular Expressions perl5 61delta http://www .perl. com/ http://www.cpan.org/ http://www .perl. org/ Perl changes in version 5.6.1 the Perl Home Page the Comprehensive Perl Archive Perl Mongers (Perl user groups) It’s a bit hard, at least for me, to see what Perl matched, so I can make another change... the part of the string that matched as well as the submatches: % perldoc -t perl | perl- grep4.pl "\b(\S)\S\1\b" perl5 87delta Perl changes in version 5.8.7 $&: 8 $1: If I change my pattern to have more submatches, I don’t have to change anything to see the additional matches: % perldoc -t perl | perl- grep4.pl "\b(\S)(\S)\1\b" perl5 87delta Perl changes in version 5.8.7 $&: 8 $1: $2: 8 (?imsx-imsx:PATTERN)... #!/usr/bin /perl # perl- grep3.pl my $pattern = shift @ARGV; my $regex = eval { qr/$pattern/ }; die "Check your pattern! $@" if $@; while( ) { print "$_\t\tmatched >>>$&