use strict;
use warnings;

for ('a*', '*') {
    print validate($_) ? "Pass: '$_'\n" : "Fail: '$_'\n";
}

sub validate{
    my $pat = shift;
    return eval{qr/$pat/};
}