You are trying to do a regex match on an array, which doesn't really make sense. You're also only reading a single line into your array. Finally, by declaring your array as a lexical (my) variable inside your while loop, it immediately goes out of scope when the loop ends.

These are just a few of the reasons why you should be using strict and warnings. These problems must be fixed before you bother with the regex.

It looks like you're trying to read the file one line at a time and do something if it matches. I suggest the following as a general framework:

use strict;
use warnings;

open DATA, "db.txt" or die $!;
my @array;
while(<DATA>) { 
    chomp;

    # save the line in our array
    push @array, $_;

    # see if it matches
    if ($_ =~ /(.*)(\d+:\d+:\d+)(.*?)/g) { 
        # do code
    }
}
[download]