sub mk_qr ($)
{
eval "qr/$_[0]/";
}