[title] blah blah blah [title]
[tags] tag tag blah blah [tags]
[message]
blah blah blah
red riding hood
runs away from the scary wolf
blah


blah
[message]

#############################################
[title] another one [title]
[tags] more tags [tags]
[message]

another 

message

here
[message]

#############################################
[title] last one [title]
[tags] last one [tags]
[message]

more fun here
[message]

##</code><code>##

foreach my $email (@split_msg)
{
   my ($title, $tags, $msg);

   $email =~ m/\[title\](.+)\[title\]/i;
   $title = $1;
   $email =~ m/\[message\](.*)\[message\]/i;
   $msg = $2;

   print "$title\n\n$msg\n\n";
}