use Data::Dumper; my @out = grep /FC_DVT/, split("\n", $out); print Dumper( \@out ) . "\n"; #### $VAR1 = [ 'cfg: FC_DVT MEZZI; MEZZI1', 'cfg: FC_DVT' ];