>perl -we"@lines = qw( a b c ); print join '<br>', @lines[0..4];
Use of uninitialized value in join or string at -e line 1.
Use of uninitialized value in join or string at -e line 1.
a<br>b<br>c<br><br>