# collect Signal Informations ($Inca_Vchk, $Inca_Name, $Inca_Comment)= $line =~ /^\<[A-Z]+\s+[a-z]+\=\'([a-z]+)\'\>\<[A-Z]+\>[^0-9]+<\/[A-Z]+\>\<[A-Z]+\>\'([a_zA-Z0-9_]+)\'\s+([^0-9]*?)\<[^0-9]+/; print "$Inca_Vchk $Inca_Name $Inca_Comment"; } }