- while ($fleet =~ m/((?:[A-Z][a-z]+ )*[A-Z][a-z]+)\s+((?:\d+|,)+)/g){
- my $amount = $2;
- $amount =~ s/,//;
- $insert->execute($id,$1,$amount);
+ $fleet =~ s/,//g;
+ while ($fleet =~ m/((?:[A-Z][a-z]+ )*[A-Z][a-z]+)\s+(\d+)/g){
+ $insert->execute($id,$1,$2) or $error .= '<p>'.$DBH->errstr.'</p>';