Select Code to Download

use strict;
use warnings;
use 5.010;
...
if ($str =~ m/([0-9]{8})/) {
   say join '|', unpack "A4 A2 A2", $1;
}