#foreach ($strMess =~ /.*?\n(?=\S)/smg) {
#foreach ($strMess =~ /.*?\n(?=\S|\s+[^\n]+?:\n\S)/smg) {
foreach ($strMess =~ /.*?\n(?=\S|\s+.+?(?:\n\S(*FAIL)):\n\S)/smg) {
    chomp; 
   s/\n\s*/ /mg;
    push(@arr, $_);
}