これは些細なことかもしれませんが、私は Perl を初めて使用するので、これについて助けが必要です。を含む巨大なテキスト ファイルがあります。
.
.
TOTAL REVENUE 416917.000000
.
.
.
TOTAL REVENUE 415870.000000
.
.
.
「TOTAL」で始まる行を別のファイルにコピーしたいだけです。Strawberry Perlでこれを行うにはどうすればよいですか?