#!/usr/bin/perl
#
$data = "http://www.toastworld.org (test)";
$nick = "zeh";

$tags = $data;
$tags =~ s/.*?\ (\(.*?\)$)/$1/;
$data =~ s/(.*?)\ \(.*?\)$/$1/;

print "$nick $data $tags\n";