my @data = grep { /^\S+;/ } <FILEHANDLE>;