in reply to Regex help

Yet another way, with the conditional
/B[34](?(?<=3)[89]|[0-9])/

[download]
HTH
--
Olivier

In Section Seekers of Perl Wisdom