my @fields = split /:/, $line;
my $linefraq = $fields[0];

##</code><code>##

my $linefraq = (split /:/, $line)[0];

##</code><code>##

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