Select Code to Download

return $XHTML?"\L<br\E$attr />":"\L<br\E$attr>" unless @_;
my($tag,$untag) = ("\L<br\E$attr>","\L</br>\E");
my @result = map { "$tag$_$untag" } 
    (ref($rest[0]) eq 'ARRAY') ? @{$rest[0]} : "@rest";
return "@result";

#!/usr/bin/perl -w
##################
...
foo<br />
Use of uninitialized value in join or string at (eval 2) line 15.
foo<br></br>