while(my $str=){