(?<ships>.+?)
\QTotal Ships in Fleet\E \s+ (\d+) \s+ (?<amount>\d+) \s+ (?<amount>\d+) \s+ (?<amount>\d+) \s+
Mission: \s* (?<missions>(?:$missre)*) \s*
(?<ships>.+?)
\QTotal Ships in Fleet\E \s+ (\d+) \s+ (?<amount>\d+) \s+ (?<amount>\d+) \s+ (?<amount>\d+) \s+
Mission: \s* (?<missions>(?:$missre)*) \s*
my @targets = split /\s+/, $+{targets};
my @lts = split /\s+/, $+{lts};
my @etas;
my @targets = split /\s+/, $+{targets};
my @lts = split /\s+/, $+{lts};
my @etas;
$mission{target} = shift @targets;
$mission{lt} = shift @lts;
$mission{mission} = shift @missions;
$mission{target} = shift @targets;
$mission{lt} = shift @lts;
$mission{mission} = shift @missions;
my $ship = $1;
my @amounts = split /\D+/, $3;
my $base = shift @amounts;
my $ship = $1;
my @amounts = split /\D+/, $3;
my $base = shift @amounts;