$regexpans = qr/^($regexpans)\b/;