in reply to what does this regex do?
The join of the array leaves $regexpans containing:
/^(big|huge|large)\b/ [download]
It's just a 'generated regex'. I'm not sure why it wasn't written:
$regexpans = qr/^($regexpans)\b/; [download]