foreach (...) {
my ($title,$tag,$message) = $email =~ /\[title](.*)\[title].*\[tags](.*)\[tags].*\[message](.*)\[message]/is;
...
}