in reply to Stripping Trailingbr's

$string =~ s/(<br>)+$//i;

In Section Seekers of Perl Wisdom