Select Code to Download

my @output;
foreach my $line (@lines) {
...
    $split[0] =~ s/\.//g #remove the dots from the element
    push @output, $split[0] . ' ' . $split[3];
}