Select Code to Download

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

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

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