open(DAT, "<gnu1.txt") || die $!;
@data=<DAT>;
close(DAT);

open(FILE, ">>gnu2.txt") || die $!;
foreach(@data)
     {
	 $_=~ /(.+);/ ? print FILE $1."\n" : ();
     }
close(FILE);