Select Code to Download

use strict;
use warnings;
...
    (print '.'), next if ( 4 == $l_rec);
    print $l_rec;
}

foreach my $l_rec (@l_test) {
    if ( 4 == $l_rec) {
        print '.';
        next;
    }