if (substr($line, 0, 5) eq '.949.')
{
    # and so on