Help for this page

Select Code to Download


  1. or download this
    if(  $type =~ /^CR\Z/i  )
# or
if(  $type =~ /^CR$/i  )
# if you want to allow for ignoring trailing newlines
  2. or download this
    if(  $type eq 'cr'  ||  $type eq 'CR'  ||  $type eq 'Cr'  ||  $type eq 'cR'  )