Mega Code Archive

 

Categories / Perl / Regular Expression

 

A program that loops using a pattern

#!/usr/local/bin/perl  while ("balata" =~ /.a/g) {     $match = $&;     print ("$match\n");  }