my $regex = "m/^(\d+)$/gi";
if(&check_regex($regex) == 1) {
...
}
else {
print 'regex' . $regex . 'not valid'; 
}