#! /usr/bin/perl -w

$a = '3LSAD23QI STVQ34AS3 453FD KV454KG D56PV54GIL YAVFK12';

########

$tmp =  ($a =~ /\d{2}\D{2}\s/ );
print "1> $tmp\n\n";

########

$tmp =  ($a =~ /\d{2}\D{2}\s/g );
print "1b> $tmp\n\n";

########

@arr = ($a =~ /\d{2}\D{2}\s/ );

print "2> "; foreach (@arr) {print "($_) ";} print "\n\n";

########

@arr = ($a =~ /\d{2}\D{2}\s/g );

print "3> "; foreach (@arr) {print "($_) ";} print "\n\n";

########

@arr = ($a =~ /(\d{2}\D{2}\s)/g );

print "4> "; foreach (@arr) {print "($_) ";} print "\n\n";

########

@arr = ($a =~ /(\d{2})\D{2}\s/g );

print "5> "; foreach (@arr) {print "($_) ";} print "\n\n";

########

@arr = ($a =~ /(\d{2})(\D{2}\s)/g );

print "6> "; foreach (@arr) {print "($_) ";} print "\n\n";

########

@arr = ($a =~ /\d.*\D/g );

print "7> "; foreach (@arr) {print "($_) ";} print "\n\n";

########

@arr = ($a =~ /\d.*?\D/g );

print "8> ";
foreach (@arr) {print "($_) ";} print "\n\n";

########

%arr = ($a =~ /(\d{2})(\D{2}\s)/g );

print "9> "; 
foreach $kk (keys %arr) {print "($kk $arr{$kk}) ";} print "\n\n";
