Select Code to Download

use strict;
use warnings;
...
my @arr = read_file($filename);
my @output= map{ $data=~s/C_USERNAME/$_/rg} @arr;
print @output;

use strict;
use warnings;
...
my @output1= map{ $data=~s/IP/$_/rg} @arr1;
print @output;
print @output1;