my @numbers = (51 .. 249);
while (<FILE>) {
    local $" = "|";
    print "$_\n" for /^([0-9]+\.[0-9]+\t(?:@numbers)\.[0-9]+)/
}