Select Code to Download

@a = map {
    $_->[0]
...
} map {
    [ $_, COMPLEX EXPRESSION ]
} @b;

@a = map{
    substr $_, 16
...
    m[...(\d+)...( \d+.\d+)...([a-z]4)...] or die "Illformed data '$_'
+";
    pack 'A4dNA*', $3, $2, $1, $_
} @b;