$line =~ s/^([^;]*;[^;]*;[^;]*).*$/$1/;