[tbone@horse1 US]$ perl g.pl 
Found 11 
Found 22 
[tbone@horse1 US]$