Question

I read and did not find the answer.
I want to read a log file and print out everything after the “:” but some of the log have space before some dont. I want to match only the one with not space at the beginning.

_thisnot: this one has space
thisyes: this one has not space at the beginning.

I want to do that for every line in the file.

Answer 1

How about:

#!/usr/bin/perl 
use strict;
use warnings;
use 5.010;

my %result;
while(<DATA>) {
    chomp;
    next if /^\s/;
    if (/^([^:]*):\s*(.*)$/) {
        $result{$1} = $2;
    }
}

__DATA__
 thisnot: this one has space
thisyes: this one has not space at the beginning.