Help for this page

Select Code to Download


  1. or download this
    if (lc($type) eq 'cr') { $foo = 1 }

...
-or-

if ($type =~ /CR/i) { $foo = 1 }