http://qs321.pair.com?node_id=402532


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