foreach my $str ($line)