while(my $line = <$fh>){
   chomp $line;
   
   if ($line =~/\bfast\b/){
      $line =~ s/^[\s\:\\]+//;
      my @line = (split(/[\s\:\\]+/,$line));
      splice @line,3,1;
       push(@lines,\@line);
   }
}