my $string = '12.34.56.78 asdfasdfasdfasdfasdf';

my $numbers = shift @{[split ' ', $string]};
my @numbers = split '\.', $numbers;

use Data::Dumper;
print Dumper(@numbers) if $numbers =~ /^[\d.]+$/;