Select Code to Download

map{if($_ =~ /^(#)?(10\.10\.1\.2.*)/){$_ = $1 eq '#' ? $2 : "#$2";}} @
+Output;

#!/usr/bin/perl
use strict;
...
#10.10.1.2   # some comment ...
10.10.1.56
14.1.2.89