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

##</code><code>##

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