つぅーか、splitでやるってのはどうよ？
($first,$second)=split /:/, $_, 2;
ってスマートじゃなか？遅かったか〜