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

use POSIX qw( isdigit );
for (<DATA>) {
    print $_,
          isdigit($_) ? ' is' : ' is not';
          ' all digits.',
          $/;
}
__DATA__    
7
5
A
75A
433
12340