When I look at my $address, I see: sHiFt!~sHiFt@xx.xx.xxx.x
The first $gettok (which uses 64 as separator) gives me sHiFt!~sHiFt@xx and the second $gettok (with 33) gives me ~sHiFt@xx and that doesn't look like a nick. A better way, I think, is to use $pos.