open my $fh, '<', 'C:\ppp.txt', or die "Could not open file $!";
     while (my $line = <$fh>) 
     {   foreach my $str ($line)