Scripting >> Perl >> How to use regular expressions to match IP address in a string

if ( m/\D+(\d+\.\d+\.\d+\.\d+)\D+/ ) { $hostip = } else { $hostip = ""; } ;