if ($line =~/\bfast\b/){
splice @line,3,1;
push(@lines,\@line);