use strict;
use warnings;
use HTML::Entities;
# init
my ($nick, $pic, $say, $likes, $fav, $car, $age, $town, $drink, $wpage)=
("") x10;
# escape
for my $alias ($nick, $pic, $say, $likes, $fav, $car, $age, $town, $drink, $wpage) {
encode_entities($alias);
}
# out
print "$nick ... $wpage";