my $filename = 'Facs_Data.txt';
open my $fh, '<', $filename
    or die "Couldn't open '$filename': $!";

my @lines = grep { /Acct:/ } <$fh>; # Read a file line by line and select the lines matching Acct: