while ($in[$count] !~ /q/i { ##

##

while ($in[$count] !~ /q/i) {

##

##

chomp($in[$count]";

##

##

chomp($in[$count]);

##

##

print "\n\n\n"done.\n\n\n"; 

##

##

print "\n\n\ndone.\n\n\n";

##

##

count++;

##

##

$count++;

##

##

while ($in[$count] !~ /q/i) {