Select Code to Download

#!/usr/bin/env perl 
use strict;
use warnings;
...
my @matches = $initialStr =~ /\[\d+ \d{2}:\d{2}:\d{2}\]\s+(.+)\n/g;

print Dumper \@matches;

my @matches = ( $initialStr =~ /\d+:\d+:\d+/ );