ANTICHAT - Показать сообщение отдельно - [Perl] Новичкам: задаем вопросы

помогите плиз написать скрипт который бы удалял половину строки после символа ; включая его самого и складывал бы результат в отдельный файл, я вот сам попробовал но чета не так получается:

Код:

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

open(FILE, ">>gnu2.txt") || die("error2!");
foreach $line (@data)
     {
     my($a,$b) = split(/;/, $line);
     print FILE  "$a;$b\n";
     }
close(FILE);