perchè il seguente codice mi riporta solo "tuccio" e non anche gli altri valori?

codice:
#!/usr/bin/perl -w

use strict;
use warnings;

my @html; { local $/; @html = (<DATA>) };

foreach (@html)
{
    chomp;
    /<tr[^>]*><td[^>]*>(.*?)<\/td><\/tr>/i;
    
    print "$1\n";
}

__DATA__
<html>
<body>

<table border="1">
<tr><td>tuccio</td></tr>
<tr><td>marameo</td></tr>
<tr><td>baubau</td></tr>
</table>

</body>
</html>