#!/usr/bin/perl -w
BEGIN {
    #stuff 
}

alarm 10;

#the bulk of the program snipped.

  $_ = 'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa';
  print "Match\n<p>" if /a*a*a*a*a*a*a*a*a*a*a*a*a*a*a*[b]/;