#!/usr/bin/perl

use warnings;
use strict;

my $test;

open my $INPUT, '<', "file.txt" or die $!;

while (<$INPUT>) {
chomp $_;

   if ($_=~/(\d)(-)(\d)/) {
   print "$1$2$3 \n";
   }
}