if u give input in command line as follows assumptions for \n in argument

@ARGV="sample\nnew\nline\ntext\n\nfor\nsample\ntesting";

my @lines    = () ;
($msg) = @ARGV ;
#print $msg; 

@lines = split /\\n/,$msg ;
print "$_\n"for @lines
[download]

output:

*********

sample

new

line

text

for

sample

testing

regards,

Senthil kumar.k