Help for this page

Select Code to Download


  1. or download this
    
use warnings;
...
   print "trying to match $_\n";
   print $_ if $_ =~ m#^(hana)(bbs)?(?(1)\2\1|\1)$#;
}
  2. or download this
    yahoo@myserver ~/.yahoo/perl> !$
simple_grep.pl
trying to match beriberi
trying to match hanabbs
yahoo@myserver ~/.yahoo/perl>