Pattern String Matching while parsing a file

[pawarr]

I wanted to add the code of string matching for the string 'EDA' to this code of file parsing. The code is provided below. Please Help.

#!/usr/bin/perl
use strict;
use warnings;

open(my $fh,'data4.txt');
while(my $row = <$fh>){
chomp $row;
print "$row \n";
}