my @lines = () ; # ($msg) = @ARGV ; # @lines = split /\n/,$msg ; # foreach (@lines) { print "\n$_\n" ; } # print "\n" ;