my ($a, $b, $c) = $temp =~ m/(\w+)\n/g;