my @lines = <FILE>;

chop(@lines);

  foreach my $str (@lines) {
    chomp(@lines);
  }