open :F html file.html ;
my $words = //span[@itemprop="author"]/text() ;