#! /usr/bin/perl
use strict;
use warnings;

my @array = (
    '0',
    '<VT>ABC</VT><!--Source:  ; ( ;)-->',
    '<VT>12 wert</VT><!--Source:  ; ( ;)-->',
);

my $i=0;

# Suche und fange ein, was innerhalb von <VT></VT> steht
if ( my ($catch) = $array[$i+2] =~ m{<VT>(.+?)</VT>} ) {
    warn "Catched: $catch\n";

    # fuege Fund vor </VT> im ersten String ein
    $array[$i+1] =~ s{</VT>}{$catch</VT>};
}

# Kontrollausgabe
require Data::Dumper;
print Data::Dumper->new( [ \@array ], [ '*array' ])->Dump();