if ( m/\s?pro\s(.*?)\s(con|due|at|pri|msg)\s/i ){
   print "pro=".$1."\n";
}