$linefraq = $1 if $line =~ /^(\w+?):/;