But specially for your example, you can do it like

my $ip_wan = new NetAddr::IP("10.20.20.1/24");
my $ip_addr = $ip_wan->addr();

for (@line) {
  s/<IP_WAN>/$ip_addr/;
}
[download]