use strict   ;
use warnings ;


my @log_data = <DATA> ;

my $current_pc_name ;
foreach my $log_line ( @log_data ) { 
    chomp( $log_line );
    next unless( $log_line ) ;

    my ( $left, $right ) = split( /\:/, $log_line ) ;
    if( $left eq 'PCName' ) { 
	$current_pc_name = $right ;
	next ;
    } 

    unless( $current_pc_name ) { 
	die( "Command $log_line assigned to no PC!!" ) ;
    }

    print "PCName:$current_pc_name\n" ;
    print "$log_line\n\n"             ;

}





__DATA__
PCName: Foo1
Command1:dfie

Command2:dfo

Command3:dfum

PCName: Foo2

Command1:dfie

Command2:dfo

Command3:dfum