#!/usr/bin/perl

use strict;
use warnings;

my $bid_str = <<END;

		<td class='list_cell'>
			<a name='15'></a>
			<span style="font-size: 120%;">Dec 15.07</span><br>
			<span style="font-size: 120%;">[--:--]</span>
		

		</td>
		<td class='list_cell'>
			<span style="font-size: 120%;" target='_top'>9998</span><br>
			Okayama
		</td>
		<td class='list_cell' style="font-size: 110%;">1988</td>
		<td class='list_cell' align="left">
			<a href='e_shitami.asp?kaijo=OK&ss=9000&se=9999&m=&s=SyupNo&o=ASC&ap=15&pgcd=E-113&lst=E-111&p=1&listpos=15&tkaijo=OK&taa=561&tsyup=9998' target='_top'>
				
			</a><br>
			
		</td>
		<td class='list_cell' style="font-size: 120%;">
			FA<br>
			    
		</td>
		<td class='list_cell' align="right" style="font-size: 120%;">
			0 <br>
			
		</td>
		<td class='list_cell'>white<br></td>
		<td class='list_cell' align="left">
			&nbsp;&nbsp;
			<br>
			AC          
		</td>
		<td class='list_cell' align='left'>&nbsp;<img src='../../images/clear.gif' width='12' height='12' style='display:inline'>&nbsp;non Auction</td>
		<td class='list_cell' align='right'>
			----<br>
			88,888
		</td>
		<td class='list_cell' valign='middle' style="font-size:120%;"></td>
	
END

my ( $date_shedule, $bid_num_site, $year_raw, $model_grade, $transmission_displacement, $mileage_inspection, $color_raw, $type_equipment, $result_raw, $final_start, $scores_raw ) = $bid_str =~ m{<td[^>]*>\s*(.+?)\s*</td>\s*<td[^>]*>\s*(.+?)\s*</td>\s*<td[^>]*>\s*(.+?)\s*</td>\s*<td[^>]*>\s*(.+?)\s*</td>\s*<td[^>]*>\s*(.+?)\s*</td>\s*<td[^>]*>\s*(.+?)\s*</td>\s*<td[^>]*>\s*(.+?)\s*</td>\s*<td[^>]*>\s*(.+?)\s*</td>\s*<td[^>]*>\s*(.+?)\s*</td>\s*<td[^>]*>\s*(.+?)\s*</td>\s*<td[^>]*>\s*(.+?)\s*</td>\s*}is;