use Regexp::Common qw( number );
$dataEntry =~ /$RE{num}{int}/ && $dataEntry == abs $dataEntry