On Thursday, February 28, 2002, at 08:37  AM, richard noel fell wrote:

> while (defined($Line=<In2>)){
>   if($Line=~/(\(D\d+\))\s*(\w*)/){
> print "==> $2\n";
> };
> };
>

disclaimer: i am a rank newbot
if i replace '/w*' with '.*$'
i get desired text.
looks like \w* doesn't do what we expect.
problems with \t in lines?

Reply via email to