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]
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]