#-----collect Signal Informations----------------------------------- my $regexp = qr { class='([^']+)'[^0-9]+([^,]+)<\/TD>[^0-9]+([^,]+)<\/TD>([^,]+)<\/TD>([^']+) }x; # ENDE Regexp ($Sig_ConChk, $Bus_Value, $Ecu_Value, $deviation, $Sig_ConCom)= $line =~ $regexp; push(@table, $Sig_ConChk, $Bus_Value, $Ecu_Value, $deviation, $Sig_ConCom);