Perl: Extracting specific text from a .txt file and outputting into a new format

Select or download this

while (<IN>) {
  if (m/Server*Example/ig) {
...
    print $_;
  }
}

Select or download this

System : system001-server
Box    : HW a2b 1234Mb 123.4, address is 0012.d345.1234 (abc 0012.d123
+.4567)
ByteIn    : 3385567095904
Byteout  : 5816943852464
Description : example_system_server_example

Select or download this

system001-server,HW a2b 1234Mb 123.4, address is 0012.d345.1234 (abc 0
+012.d123.4567),3385567095904,5816943852464,example_system_server_exam
+ple

Select or download this

log example (from .txt file):
==
system001-server
...
GigabitEthernet7/2 is up, line protocol is up (connected)
HW a2b.........
==

Select Code to Download