Achso, mein Vorschlag und ungetestet:

my ($zahl) = $zeile =~ /faqid=(\d{5}) by HTTrack Website Copier/; # falls nur Ziffern möglich

oder

my ($zahl) = $zeile =~ /faqid=(\w{5}) by HTTrack Website Copier/; # falls auch Buchstaben dabei sein können