I use that delimiter trick often, and when I'm really paranoid (or I know my strings have unpleasant characters in them) I do something like:

print unpack('H*',$usrfile{$password}) ."\n". unpack('H*',$password);
[download]

And I can usually see the difference then. I hope!