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";
}