Select Code to Download

#!/usr/bin/perl -wT
use strict;
...
      }
   }
}

I0=nameofplant Q0=\d+ P0=\d+\.[\d]{2} IT0=\d+\.[\d]{2}
I1=anotherplant Q1=\d+ P1=\d+\.[\d]{2} IT1=\d+\.[\d]{2}
etc...

my $query = CGI->new();
@names = $query->param;
...
...
      &tohtml( $name, $values  );
   }
}

if ( $name =~ /^I\d+$/ && $values =~ /[A-Za-z\s_\'\-\.]+/ ) { #I\d+   
+                                  
            print "<tr>\n<td><input type='hidden' name=\"" . $name . "
+\" value=\"" . $values . "\"><span class='b'>" . $name . "</span> &nb
+sp; " . $values . "<\/td>\n";     # start new row
            next;
...
            print "<td style='text-align:center;'><input type='hidden'
+ name=\"" . $name . "\" value=\"" . $values . "\">Quant: <span class=
+'b'>" . $values . "</span></td>\n";
            next;
      # plus 4 more for P\d+ and IT\d+ cases and another pair of speci
+al cases

"<tr><td>ID: " . $name . " $values "; #(where the inner loop is at [0]
+)
" </td><td>Quantity: " . $values[1];