#! /usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
$Data::Dumper::Useqq = 1;

# Baue den Regex nach und nach auf
my $regex = qr{
  class='([^']+)'                # Klasse einfangen
  .*?
  # TODO: Bus value einfangen
  # TODO: ECU value einfangen
  # TODO: Deviation einfangen
}x;


my $i = 0;
while ( my $line = <DATA> ) {
	if ( my @result = $line =~ $regex ) {
		print Dumper( \@result );
	}
	else {
		warn "No match for: $line";
	}
}

__DATA__
<TR><TH>Bus Signal</TH><TH>Bus Value</TH><TH>ECU Variable</TH><TH>ECU Value</TH><TH>Deviation</TH><TH>State</TH></TR>
<TR class='failed'><TD>TEMP_EX</TD><TD>-40</TD><TD>Com_tEnvT_FA</TD><TD>-38.5</TD><TD>1.5</TD><TD>CONVERSION FAILED</TD></TR>
<TR class='failed'><TD>TEMP_EX</TD><TD>-39.5</TD><TD>Com_tEnvT_FA</TD><TD>-38.5</TD><TD>1</TD><TD>CONVERSION FAILED</TD></TR>
<TR class='failed'><TD>TEMP_EX</TD><TD>22</TD><TD>Com_tEnvT_FA</TD><TD>-38.5</TD><TD>60.5</TD><TD>CONVERSION FAILED</TD></TR>
<TR class='failed'><TD>TEMP_EX</TD><TD>83.5</TD><TD>Com_tEnvT_FA</TD><TD>-38.5</TD><TD>122</TD><TD>CONVERSION FAILED</TD></TR>
<TR class='failed'><TD>TEMP_EX</TD><TD>84.5</TD><TD>Com_tEnvT_FA</TD><TD>-38.5</TD><TD>123</TD><TD>CONVERSION FAILED</TD></TR>
<TR class='failed'><TD>TEMP_EX</TD><TD>85</TD><TD>Com_tEnvT_FA</TD><TD>-38.5</TD><TD>123.5</TD><TD>CONVERSION FAILED</TD></TR>