use strict;
use 5.14.2;
my $bib_count = 0;
my $INPUT_REF_FH;
my @text_found;
open $INPUT_REF_FH,"<:utf8", "ch01.txt";
binmode STDOUT, ':utf8';
while(<$INPUT_REF_FH>){
my $data1 = $_;
while ($data1 =~ m{(.*)}gx){
$bib_count += 1;
# print "$&\n";
push @text_found, ${^MATCH};
};
};
foreach (@text_found){
print "$_\n";
};
print "Total occurrences of is $bib_count";
close $INPUT_REF_FH;