#!/usr/bin/perl -w

use strict;

open IN, "myfile.txt" || die "Couldn't open myfile: $!\n";
open OUT, ">myresults.txt" || die "Couldn't open output: $!\n";

my @array;

while (<IN>) {
  chomp;
  $_ =~ s/://g;
  print OUT $_ ."\n";
}

close IN;
close OUT;

or

while(<IN>) {
  chomp;
  push(@array, $_);
}

close IN;

foreach my $num (@array) {
  $num =~ s/://g;
  print $num ."\n";
}
[download]

HTH
'Fect