while(<>){
  my @list = $_ =~ /([a-xA-Z'\-]+)/g;