$nick = $line;
$nick =~ s/^<\;([^\/]*?)\/\#.*?>\; .*$/$1/;
$channel = $line;
- $channel =~ s/^<\;[^\/]*?\/\#(.*?)>\; .*$/$1/;
+ $channel =~ s/^<\;[^\/]*?\/(\#.*?)>\; .*$/$1/;
# $nick =~ tr/[A-Z]/[a-z]/;
# <======= move this into another function when getting nick colour