use strict;
use warnings;

my $pcName;
local $/ = ''; # paragraph mode

for my $file (<*.log>) {
	open my $fhIN, '<', $file or die $!;
	open my $fhOUT, '>', 'prepped/' . $file or die $!;

	while (<$fhIN>) {
		chomp;
		print $fhOUT $_ if /\n/; # first two file lines
		next if /^(PCName:\s+.+)/ and $pcName = $1; # pc name & next
		print $fhOUT "\n\n$pcName\n$_"; # print pc name & command
	}

	close $fhIN;
	close $fhOUT;
}