When I run the program, after inputting the number I get a a blank screen. This is what I have so far.:
#!/usr/bin/perl -w
use strict;
my $input = <STDIN>;
chop $input;
open FILE, "numbers.txt" or die $!;
while ( <FILE> ) {
if ( $_ =~ m/^($input)*$/ ) {
print $_;
}
}
close FILE;