如何在Perl中跳过非空格或数字的行？

#!/usr/bin/perl

use strict;
use warnings;

while (<>) {
    next if /^[^0-9\s]+$/;
    print;
}

#!/usr/bin/perl

use strict;
use warnings;

open(my $fh, "<", "input.txt") or die "Can't open input.txt: $!";

while (<$fh>) {
    next if /^[^0-9\s]+$/;
    print;
}

close($fh);