$DBH->begin_work;
while ($missions =~ m/([^\n]+)\s+(\d+):(\d+):(\d+)\s+(\d+):(\d+):(\d+)
\s+\((?:(\d+)\+)?(\d+)\).*?(?:\d+hrs\s+)?\d+mins?\s+
- (Attack|Defend|Return|Fake Attack|Fake Defend)
+ (Attack|Defend|Return|Fake\ Attack|Fake\ Defend)
(.*?)
(?:Launching\ in\ tick\ (\d+),\ arrival\ in\ tick\ (\d+)
|ETA:\ \d+,\ Return\ ETA:\ (\d+)
my $ships = $11;
my @ships;
my $amount = 0;
- while ($ships =~ m/((?:\w+ )*\w+)\s+\w+\s+(?:(?:\w+|-)\s+){3}(?:Steal|Normal|Emp|Normal\s+Cloaked|Pod|Struc)\s+(\d+)/g){
+ while ($ships =~ m/((?:\w+ )*\w+)\s+\w+\s+(?:(?:\w+|-)\s+){3}(?:Steal|Normal|Emp|Normal\s+Cloaked|Pod|Structure Killer)\s+(\d+)/g){
$amount += $2;
push @ships,{Ship => $1, Amount => $2};
}