请问这个正则表达式怎么写？

QUOTE:

原帖由 ustctapper 于 2007-11-28 14:26 发表
这里说的词根不是原本词根的定义，只是一组字母序列，比如
9. The dust in the industrial zone frustrated the industrious man.
词根是dust或ust
10. The just budget judge just justifies the adjustmen ...

CODE:

#!/usr/bin/perl -w
$/ = ".\n";

while (<>) {
    my @array="";
    my %myhash=();
    print "---------------------------\n";
    print "the line is :$_\n";
    while(/^\w+/)
    {
        s/^(\w+)\W+(.*)$/$2/;
        push(@array,lc($1));    #save all the words(in lower case format) into array.
    }
    @b=@array;                     #copy this array to b, for checking

    my $len;

    my $matchlen;

    foreach $item(@array)

    {
        $len=length($item);
        for( $matchlen=$len;$matchlen>=3;$matchlen--)
        {
            for( $i=0;$i<=$len-$matchlen;$i++)
            {
                $matchstr=substr($item,$i,$matchlen);  #define the matchstring.
                foreach $pig(@b)
                {
                    next if ( $item eq $pig);                     #the word can not match against itself.
                    if ( $pig =~ /$matchstr/)
                    {
                        $myhash{$matchstr}++;             #if matches, record them.
                    }               
                }       
            }            
        }
    }
    foreach (keys %myhash)
    {
        print "$_:$myhash{$_};\t";                   #print all the successful match records.
    }
    print "\n";
}