foreach my $line ($hall_name, $contact_name, $contact_email, $contact_telephone) {
  print "$line<br/>";
  $line=~s/'//g;
}