Ho ancora dei problemi, non funziona bene.
Fore l´errore dovrebbe essere nel print quando devo assegnare le variabili da stampare.
Potreste dirmi cosa inserire nel print per assegnare il valore di QM1 come $i.


for ($i = 0; $i < lenght($line); $i++){
if (($chars[$i] eq '?') && ($posQM1 < 0)){
print "\r\-..cosa inserire-QM1 at $i";
$posQM1 = $i;