$line =~ s/^(.*>) ;.*/\1;/;