#!/usr/bin/perl

use warnings;
use strict;


my $sod='ip6 is used for...';
my $i=0;
my @baza_tek=qw( (?^u:ip(\d)) "internet_protocol-$1$2" );

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