Help for this page

Select Code to Download


  1. or download this
    use strict;
    use warnings;
    ...
    for ( qw( Test test tesT tast ) ) {
        print "$_\n" if /$pat/;
    }