Select Code to Download

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

matches 1