my $line = <<LINE;
<TR class='passed'><TD>CAN signal</TD><TD>'DISP_RQ_GR_GRB' available in Inca.</TD><TD>PASSED</TD></TR>
LINE

# mehrzeiligen Regex mit Kommentaren
my $regex = qr{

  # wir brauchen die verwendete class
  class='([^']+)'

  # dann kommt erstmal uninteressantes (aber bitte sowenig wie moeglich)
  .*?

  # innerhalb einer tabellenzelle zwei strings einfangen
  <TD>'([^']+)'\s*([^<]+)</TD>

}x;  # ENDE Regex


if ( my ($Inca_Vchk, $Inca_Name, $Inca_Comment) = $line =~ $regex ) {
  print $Inca_Vchk, "\n",
    $Inca_Name, "\n",
    $Inca_Comment, "\n",
  ;
}