while (my $line = <>) {
    warn 'Not an integer!' unless /^-?\d+$/;
    ...
}