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