如何匹配以特定單詞開頭的行？

Question

我有一個Perl腳本，目前抓住包含單詞ACCOUNT的每一行。我怎樣才能在行首開始抓住包含單詞ACCOUNT的行？

use strict; 

my $find = 'ACCOUNT'; 

open (NEW, ">", "output.txt") or die "could not open:$!"; 
open (FILE, "<", "Report.txt") or die "could not open:$!"; 

while (<FILE>) { 
    print NEW if (/$find/); 
} 

close (FILE); 
close (NEW); 

Answer 1

評論了空白版本，因爲人們似乎沒有閱讀評論。

use strict; 
my $find = 'ACCOUNT'; 

open (NEW, ">", "output.txt") or die "could not open:$!"; 
open (FILE, "<", "Report.txt") or die "could not open:$!"; 

while (<FILE>) { 
    # print NEW if $_ =~ /^\s*$find/ ; # Any line that starts with whitespace and followed by $find 
    print NEW if $_ =~ /^$find/ ; # Any line that starts strictly with $find 
} 
close (FILE); 
close (NEW);