my $text = "hallo 10.10.10.10 Welt!";
if ( $text =~ /\b(\d+\.\d+\.\d+)\b/ ) {
    print $1;
}