Select Code to Download

my $string = '21090412500011            209         070279501 9047    
+0         1111';
my $f = "A6A4A4A15A18A4A1A5A13"; # Dynamically construct from list val
+ues.
my @subStrings = unpack("A6A4A4A15A18A4A1A5A13",$string);