Help for this page

Select Code to Download

Select or download this

my $count = 0;
while(<>)
{
   $count+= () = m< photo/([a-z]+\.[a-z]{3}) >gxi;
}