#!perl
use strict;
use warnings;

my $pattern = 'W';
my $match   = 'lipid';
my $cyclo   = 'CC';
my $group   = 'GGG';

my $results   = 'c:/temp/';
my $filepath  = 'Test/';
my $infile    = 'ABC.txt';  

chdir "$results$filepath" 
  or die "cannot chdir to $results$filepath ! $!";
 
if (-e $infile) {
  open my $test, '<', $infile 
    or die "Can't open $infile: $!";

  while (my $line = <$test>){
    my @f = split ' ', $line;
    if ( ($f[0] eq $pattern.$match)
      && ($f[1] eq $cyclo) 
      && ($f[2] eq $group) ){
      print $line;
    }
  }
} else {
  print "$infile does not exist";
}