Select Code to Download

    $_ = <FH>;
    chomp;
...
        my @file= split(/:/);
        %data = @file;
    }

    my @file = <FH>;
    chomp @file;
    %data = split(/:/, join('', @file));

    @file = join(":",%data);
    print FH @file;

    my $file = join(":", %data);
    print FH $file;