in reply to Seeking help from Perl Monks for counting regular expressions (motifs) and counting lengths between them in a large string

Try to fix the warnings first. Change: 
until (my $motif =~ /^\s*$/ );# Line 58

[download]
to: 
until ($motif =~ /^\s*$/ );# Line 58

[download]

Other advice:

  • Comment on Re: Seeking help from Perl Monks for counting regular expressions (motifs) and counting lengths between them in a large string
  • Select or Download Code

In Section Seekers of Perl Wisdom