#!/usr/bin/env perl use strict; use warnings; { local $/ = "\nMessage Id"; while () { chomp; /^message=(.*)\z/ms && print "$1\n"; } } __DATA__ <13>Nov 15 21:26:00 OamCOMM[365626]: TIMESTAMP=Thu Nov 15 21:26:00 2018 ... Severity=Inform message={username:xxxxxxx... causeDISTINGUISH_NAME=... ... CHUNK 1 ... label=x } Message Id=xxxxxxxx <13>Nov 15 21:26:00 OamCOMM[365626]: TIMESTAMP=Thu Nov 15 21:26:00 2018 ... Severity=Inform message={username:xxxxxxx... causeDISTINGUISH_NAME=... ... CHUNK 2 ... label=x } Message Id=xxxxxxxx #### {username:xxxxxxx... causeDISTINGUISH_NAME=... ... CHUNK 1 ... label=x } {username:xxxxxxx... causeDISTINGUISH_NAME=... ... CHUNK 2 ... label=x }