Perl + duct tape: extracting statements


AIR AMERICAN AIRLINES FLT:3199 ECONOMY
          /* ... */
	  if(/FLT:\s*(\d+)\s+([A-Z][A-Z]+)?/){
	      my($flightNum, $flightClassName) = ($1, $2);
	      $event = genSym("flt$flightNum");
	      makeStatement($event, $tNS . "flightNumber", '', $flightNum);
          /* ... */
	
_:flt3199_3 <http://www.w3.org/2000/10/swap/pim/travelTerms#flightNumber> "3199".
_:AMERICANAIRLINES_4 <http://opencyc.sourceforge.net/daml/cyc.daml#nameOfAgent> "AMERICAN AIRLINES".
_:AMERICANAIRLINES_4 <http://www.w3.org/1999/02/22-rdf-syntax-ns#type> <http://opencyc.sourceforge.net/daml/cyc.daml#AirlineCompany>.
_:flt3199_3 <http://www.w3.org/2000/10/swap/pim/travelTerms#carrier> _:AMERICANAIRLINES_4.
_:ECONOMY_5 <http://www.w3.org/1999/02/22-rdf-syntax-ns#value> "ECONOMY".
_:flt3199_3 <http://www.w3.org/1999/02/22-rdf-syntax-ns#type> _:ECONOMY_5.