my $string="Johnson Controls Automotive Electronics\x0APackage: GMLAN 3.1 - Single Channel\x0AMicro: uPD70F3524\x0ACompiler: Green Hills 5.1.7-BD1110030";

##</code><code>##

my $string= join "\n", 
    "Johnson Controls Automotive Electronics",
    "Package: GMLAN 3.1 - Single Channel",
    "Micro: uPD70F3524",
    "Compiler: Green Hills 5.1.7-BD1110030";