Stephen Hardisty wrote:
> > for(split(/(..)/, $string)) { print "*$_" if $_; }
> 
> Gorgeous :o)

or,

@parts = grep length, split /(..)/, $string;

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

Reply via email to