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";