while (my $str = <INFILE>) {
  my ($foo) = $str =~ /[:]([0-9]+)/;  # WE TESTED THIS
  die "Something's Wrong with $str!"
    unless ($foo);   # NEVER ASSUME, NEVER ASSUME
  print OUTFILE "FILE=$foo\n";  # NOTICE DOUBLE-QUOTES
}