#!/usr/bin/perl

use strict;
use warnings;

my @data = ( "dist: 45 km;", "dist: 45\nkm;", "dist:\n45 km;" );

foreach my $chunk( @data ){
    my( $distance ) = $chunk =~ /dist:.*?(\d+).*?km;/s;
    print STDOUT "$distance\n";
}