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

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

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