note
linuxer
<p>Just my first thought; so instead of</p>
<code>
while ( $window =~ m/\w{3}\s{1,2}\d{1,2}.*$re.*\n/oigc ) {
</code>
you could try
<code>
while ( $window =~ m/\w\w\w\s\s?\d\d?.*$re.*\n/iogc ) {
</code>
<p>\w\w\w should run faster than \w{3}, same with \d\d? instead of \d{1,2}</p>
<p><b>Edit:</b> and same with \s\s? vs. \s{1,2}. The direction should be clear.</p>
<p><b>Edit2:</b> Maybe precompiling the regex with the qr// Operator might give another speedup.<br>
By the way, I can't remember that /c Modifier, what is it for?</p>
683943
683943