#!/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" );

{
    local $SIG{__WARN__} = sub {
        warn @_;
        warn "\$baza_tek[$i] is '$baza_tek[$i]";
        my $j = $i + 1;
        warn "\$baza_tek[$j] is '$baza_tek[$j]";
    };
    $sod=~s#$baza_tek[$i]#$baza_tek[$i+1]#gee;
}