;e while line = get;fput 'cast hnot' if line =~ /Hnot/;end