Help for this page

Select Code to Download

Select or download this

use Modern::Perl;

...
say 'IP address: 10.10.10.10' =~ /IP\s+address:\s+([^\s]+)/;
say '  IP address: 10.10.10.10' =~ /^\s*IP\s+address:\s+([^\s]+)/;
say 'IP address: 10.10.10.10' =~ /^\s*IP\s+address:\s+([^\s]+)/;

Select or download this

10.10.10.10
10.10.10.10
10.10.10.10
10.10.10.10