$count += $print_string =~ tr/\n//;
print OUT $print_string;