#!/usr/bin/perl -w

use strict;
use Data::Dumper;


my $string = "df5434vg7856fg3472sd1234jh45r5";


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

print Dumper(@array);