Select Code to Download

#!/usr/bin/perl -w

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

print Dumper(@array);

$VAR1 = '';
$VAR2 = 'df5434';
...
$VAR8 = 'sd1234';
$VAR9 = '';
$VAR10 = 'jh45r5';