} elsif (m/^routes (\w+)$/) {
my $ocean= $1;
@ctx= (sub {
- m/^(\S[^\t]*\S)\t+(\S[^\t]*\S)\t+([1-9][0-9]{0,2})$/ or die;
+ m/^(\S[^\t]*\S),\s*(\S[^\t]*\S),\s*([1-9][0-9]{0,2})$/ or die;
$routes{$ocean}{$1}{$2}= $3;
});
} elsif (m/^client (\S+.*\S)$/) {