my @fields;
while (<DATAFILE>)
{
    chomp;
    push @fields, $_;
}

##</code><code>##

my ($TRACK, $pager, $service) = @fields;