Help for this page

Select Code to Download

Select or download this

>perl -wMstrict -le
"for my $line ('', 'X', 'Y') {
...
   match: 'Y' =~ MatchLAC('')
NO match: 'Y' =~ MatchLAC('X')
   match: 'Y' =~ MatchLAC('Y')