in reply to Multiple variable assignments with RexExp
($var1, $var2) ^=~ s/\n/<br>/g; [download]
~Particle *jonesin' for perl 6*