use strict;
use warnings;

print validate('a*') . "\n";
print validate('*') . "\n";

sub validate{
	my $pat = shift;
	if (eval{qr/$pat/}){
		return 1;
	}else{
		return 0;
	}
}