open FH, "inputDatafile.txt";

$/=""; ## input field separator
my $line = <FH>;
close (FH);

$count = $line =~ s/(abc)/$1/g;

print "count is : $count\n";
[download]

"There is a solution for all problems but we need to find a direction"