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

##</code><code>##

#!/usr/bin/perl -w
use strict;

my $temp = "DATA\nFile\nHello\n";

my ($a, $b, $c) = split(/\n/, $temp);

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

##</code><code>##

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