Probably he wants =~ s/[^\w.]*$//; because

$ perl -le print(chr(0)) |cat -v
^@
[download]