use strict;
use warnings;

my $text; { local $/; $text = <DATA>; }
$text =~ s/\#\#\#\n\[b\](.+)\[\/b\]/<TAG>$1<\/TAG>/g;
print $text;

__DATA__
###
[b]word[/b]
text
###