my $compd_pattern = eval "qr($pattern)" or die $@;