while ( <$contin> )
					{
    				if ($_ =~ m/^$contractor(.*)/)
						{
					my @results = split(m#\s+#, $1);
					print br;
					print @results;
						}
 					}
			close( $contin );
    			}