Help for this page
#! /usr/bin/perl use strict; ... my $n = "ABCDABDIDAOFOOFAA" ; my $d = ($n =~ /A/g) ; print "matches $d" ;
matches 1