/\W/ ? push @a,$_ : push @b,$_ for split /(:|%|;)/