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

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

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

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