#!/usr/bin/perl
#
#
use strict;
use warnings;

my $file = "input.txt";

open ( FILE, $file ) || die "Can't open $file $!";

while ( <FILE> ) {
        chomp;
        if ( $_ = /\d+\*/ ) {
                print "$_\n";
        }
}