Shell Programming and Scripting

awk 'NR==FNR{a[$1]; next}
 function lsr(c,p) {
    for(p=length(c);p;p--)
           if(substr(c,1,p) in a) break;
    if (p) return substr(c,1,p);
    return "";
 }
 {IGNORECASE=1;
  while(length) {
     s=lsr($0);
     while (!s) {
         printf substr($0,1,1);
         $0=substr($0,2);
         s=lsr($0);
         if (s) printf " ";
     }
     printf "%s ", s;
     $0=substr($0,length(s)+1)
  }
  printf "\n"; }' lookup raw

 awk '{a[$1]=length($1)}END{for(i in a) print a[i],i|"sort -nr"}' lookup |awk '{print $2}' >new_lookup

awk 'NR==FNR{a[NR]=$1;b[$1]=1;x=NR;next}
{IGNORECASE=1;{for (j=1;j<=x;j++){for(i=1;i<=NF;i++) if(length($i)>length(a[j]) && !($i in b) && $i~a[j] && $i!=a[j])
{gsub(a[j]," "a[j]" ",$0)}}}}{$1=toupper(substr($1,1,1))substr($1,2);print}' new_lookup raw

slowball
slowly
play
child
quick
slow
not
put
the 
boy 
ran
ly
is

theboyranthroughslowly
heistoslowtoplayslowball

while (!s) {

while (length && !s) {

awk 'NR==FNR{a[NR]=$1;b[$1]=1;x=NR;next}
{IGNORECASE=1;{for (j=1;j<=x;j++){for(i=1;i<=NF;i++) if(length($i)>length(a[j]) && !($i in b) && $i~a[j] && $i!=a[j])
{sub(a[j]," "a[j]" ",$i);$0=$0}}}}{$1=toupper(substr($1,1,1))substr($1,2);print}' lookup raw

SEE ALSO 
The full documentation for l si s maintained as aTe xi n fo manual . If 
thein fo and l sprog rams are properly installed at yours it e , the com ‐ 
man d

awk 'NR==FNR{a[$1]; next}
 function lsr(c,p) {
    for(p=length(c);p;p--)
           if(tolower(substr(c,1,p)) in a) break;
    if (p) return substr(c,1,p);
    return "";
 }
 {while(length) {
     s=lsr($0);
     while (!s && length) {
         printf substr($0,1,1);
         $0=substr($0,2);
         s=lsr($0);
         if (s) printf " ";
     }
     printf "%s ", s;
     $0=substr($0,length(s)+1)
  }
  printf "\n"; }' lookup raw