my $line = ":InitH!inithello@Init-4C8CF975 NICK :InitH123";
$line =~ s/:(.+?)!(.+):(.+?)/\1:\3/;
my ($oldnick, $newnick) = split (/:/, $line, 2);