my $ip_wan = new NetAddr::IP("10.20.20.1/24");
for (@line) {

s/<IP_WAN>/$ip_wan->addr()/;
}