$pattern = eval "qr$pattern" or die $@;