Sure. We have this little section:
if ( /<title>(.*?)<\/title>/si )
{
print "Title = $1\n" unless $seen{$1}++;
}
The first line uses a regex to find things enclosed by <title> tags. Because of the grouping parentheses, whatever is matched gets magically assigned to the special $1 variable. (Note, that's the numeral one, not a lower-case ell.) (If you had more paren groups, what they matched would be assigned to $2, $3, etc.)
The stuff inside the if block is really just a fancy (compact) way of writing
$seen{$1}++;
if ( ! $seen{$1} ) {
print "Title = $1\n";
}
Now is it clearer, I hope?
Footnote: Why the /s and /i modifiers on the regex? Well, the /i is so we can match <title>, <TITLE>, or any other variant of case. The /s is so the dot in the pattern can match linebreak characters, in case someone cleverly wrote something like
<title>This is a very
Long Title</title>
jdporter
...porque es dificil estar guapo y blanco. |