in reply to Parsing problem

Simple fix, using Regex: 
#REPLACE THIS LINE:
($logon, $uname) = split(":", $username); ##Old
# With THIS line:
($logon, $uname) = split(/[:|^]/, $username); ##New

[download]
Also, please use <code> tags when you post your code.

    ..."I don't know what the facts are but somebody's certainly going to sit down with him and find out what he knows that they may not know, and make sure he knows what they know that he may not know, and that's a good thing. I think it's a very constructive exchange," --Donald Rumsfeld

In Section Seekers of Perl Wisdom