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