DB<146> $pattern = join "|", map { "\\b$_\\b" } sort {length($b)<=>length( $a) } keys %lexicon
 => "\\bknight\\b|\\bnight\\b|\\bday\\b"

  DB<147> @matches =  ( $tweet =~ /($pattern)/g )
 => ("knight", "night")