my $dist = $1 if ($str =~ /dist:.([0-9]+)/s );