#!/usr/bin/perl

use warnings;
use strict;
use Data::Dumper;
 
my $filename = 'dfttest.log';
 
open(FH, '<', $filename) or die $!;
my $keyword;


 while(<FH>){
   
   $keyword = $_;
   if ($_ =~ /^Launching\s*(.*?)\s*\(.*$/) {
       print "\n".$1;
         
   }
}


 
close(FH);