#!/usr/bin/perl -w 
#
use strict ;
#
my $line     = undef ;
my @lines    = () ;
#
my ($test) = @ARGV ;
#
#my $test = "x\ny\nz" ;
    
print "\nTest :: $test\n" ;

my @foo = split /\n/, $test;
    
foreach $line (@foo) {
   print "\n$line\n" ;
}
#
print "\n" ;
#