use Regexp::Common;
use Data::Dumper;
use v5.30.0;

my $value = "+a1.2cd";

if ( $RE{num}{int} -> matches($value) ) {
    say "INTEGER patern:\t".$RE{num}{int};
    say $value;
    say "It is Integer";
}elsif ( $RE{num}{real}->matches($value) ) {
    say "REAL patern:\t".$RE{num}{real};
    say $value;
    say "It is Real";
}else{
    say "It is String";
}