Select Code to Download

my @sorted = map{
    substr $_, 5;
...
foreach my $warning(@sorted) {
    print OUT $warning unless ($warning =~ "<stuff I don't want>"); 
}

Use of uninitialized value in sprintf at script.pl line 43, <LOG> line
+ 7253. 
Argument <line from LOG> isn't numeric in sprintf at script.pl line 43
+, <LOG> line 7253

my @sorted = map{
    substr $_, 125;
...
    sprintf '%0125d%s',
        $_ =~ m[,\s+(\d+)], $_;
} @msgs;