$line =~ s/\<\*40\>//g;