my $nick = "adam";
my $pass = "eva";
my $string = "$nick\0$pass";
# oder
my $string2 = "$nick\x00$pass";