Select Code to Download

my @data =
        map { join '', @$_[0..3],'R',@$_[4..6],'.',$_->[7], "\n" }
...
               $a->[3] cmp $b->[3] }
        map { [ /^(\d+)(\D+)(\d+)(\D*)R(\d+)(B?)(\d*)\.(\w+)$/ ] }
        <DATA>;