use warnings;
use strict;

while (<DATA>) {
  chomp;
  my $data = $_;
  print "$data: ";
  my $result = ($data =~ /^[+\-]?\$?[0-9.]+$/) ? 
    "numeric" : "non-numeric";
  print "$result\n";
}
__DATA__
1020
$10.21
-1023
+1.024
beer
10$25
-$102.6
A1027
1028$
$
$-1.029