Select Code to Download

use 5.022;
use warnings;
...
    };

say qq{$_\n} for @records;

    map  {
        join q{ },
...
    }
    grep { m{^Receive:} }
    <$logFH>;