my ($linefraq) = split ':', $line;