Код находит строки, содержащие тег в Perl, как сделать так, чтобы выводилась только часть с атрибутом src? Спасибо

use strict;
use warnings;

my @words;

sub main
{
my $file = 'index.html';
open(FH, $file) or die("File $file not found");

my $number = 0;
# my $vimg = "";

while(my $String = )
{
if($String =~ /img/)
{
print "$String \n";
$number++;

}
}
print "THIS WORD APPEARED $number TIMES";
print "\n";
close(FH);
}
main();