Select Code to Download

#!/usr/bin/perl

...
END

my ( $date_shedule, $bid_num_site, $year_raw, $model_grade, $transmiss
+ion_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;

...<td[^>]*>\s*(.*?)\s*</td>\s*}is;