Miscellany
public text v1 · immutable#!/usr/bin/perl
#
$data = "http://www.toastworld.org (test)";
$nick = "zeh";
$tags = $data;
$tags =~ s/.*?\ (\(.*?\)$)/$1/;
$data =~ s/(.*?)\ \(.*?\)$/$1/;
print "$nick $data $tags\n";
#!/usr/bin/perl
#
$data = "http://www.toastworld.org (test)";
$nick = "zeh";
$tags = $data;
$tags =~ s/.*?\ (\(.*?\)$)/$1/;
$data =~ s/(.*?)\ \(.*?\)$/$1/;
print "$nick $data $tags\n";