$_ = "000000111111111111000000";
@h{grep~s/^.$/0$&/,0..23} = /./g;

I hope that works

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to