for my $lines (@lines ) {
if ($lines =~ s/\)/\)<br>/g) { 
push @good,$lines;
}
}
@lines = @good;
print "@good";