if (index($line,$p)){