http://www.perlmonks.org?node_id=1167376


in reply to Pattern String Matching while parsing a file

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

open(my $fh,'data4.txt');
while(<$fh>){
  print if /EDA/;
}

[download]

In Section Seekers of Perl Wisdom