while($text =~  /(.?B\d{13,19}\^[\w \/]{2,26}\^[\w\?;=]+\??|.?\d{13,19}[D=]\w+\??|(?<!\d)\d{3}[\d\- $seperators]{7,14}\d{3}(?!\d))/g)