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