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