foreach my $this_paragraph (@paras) { if( $this_paragraph =~ /^$KWD:/s ) { print $this_paragraph; # This works if the paragraph looks like 'KEYWORD: ...' } }