if ( /<title>(.*?)<\/title>/si )
        {
           print "Title = $1\n" unless $seen{$1}++;
        }

##</code><code>##

    $seen{$1}++;
    if ( ! $seen{$1} ) {
        print "Title = $1\n";
    }

##</code><code>##

    <title>This is a very
       Long Title</title>