#!/usr/bin/perl -w

use strict;
use Data::Dumper;


my $string = "df5434vg7856fg3472sd1234jh45r5";


my @array = split(/(\w{2}.{4})/,$string);

print Dumper(@array);

##</code><code>##

$VAR1 = '';
$VAR2 = 'df5434';
$VAR3 = '';
$VAR4 = 'vg7856';
$VAR5 = '';
$VAR6 = 'fg3472';
$VAR7 = '';
$VAR8 = 'sd1234';
$VAR9 = '';
$VAR10 = 'jh45r5';