warn ($msg =~ m/\n$/) ? $msg : ($msg . "\n");

##</code><code>##

    warn  $msg =~ m/\n$/ ? $msg : ($msg . "\n");