Help for this page

Select Code to Download


  1. or download this
    my @line = map { chomp; $_ }  fgrep { /^[2-6] .+$/ } *DATA;
  2. or download this
    chomp( my @line = fgrep { /^[2-6] .+$/ } *DATA );