I may have got this completely wrong but it looks to me like you want to match lines in the file to some previously assigned variables. If so, perhaps this will clarify

#!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";
}
[download]