Help for this page

Select Code to Download


  1. or download this
    if ($filename !~ m^/[a-z]{1,7}\.TXT$/i)
  2. or download this
    if ($filename !~ m/^[a-z]{1,7}\.TXT$/i)
  3. or download this
    $my @t = split (/\s+/); #split sentences into "words"
  4. or download this
    my @t = split (/\s+/); #split sentences into "words"
  5. or download this
    die("File format not valid\n");)