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