Ich nehme an, dass der Qantifier falsch angegeben ist. Also anstatt $tags[0] =~ /^b[0-9]{1-3}/ sollte es $tags[0] =~ /^b[0-9]{1,3}/ heissen.
[1,3} bedeutet mindestens einmal aber maximal dreimal.