Select Code to Download

I am 60 years old I am 60 years old

My code prints only 1 occurence not the successive ones. How to do tha
+t ?

#!/usr/bin/perl -w

...
                   }
   }  
close FH;