Select Code to Download

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

#!/usr/bin/perl -w
use strict;
...
my ($a, $b, $c) = split(/\n/, $temp);

print "$a:$b:$c\n";

my @list = split(/\n/, $temp);