Thanks guys, I tried something like this before, but I must have been missing the ? ... doh!

    while ($post_message =~ /\[b\](.+?)\[\/b\]/sg) { 
        print "BOLD: $1 \n\n"; 
        $bold_length += length($1);
    }
[download]

Working like a charm now - thanks!

Andy