Select Code to Download

#!/usr/bin/perl

...
my @baza_tek=qw( (?^u:ip(\d)) "internet_protocol-$1$2" );

$sod=~s#$baza_tek[$i]#$baza_tek[$i+1]#gee;