Select Code to Download

sub parse_amazon {
    my ( $text, $ashash ) = @_;
...
    return { title => $title, author => $authors[0], author2 => $autho
+rs[1], author3 => $authors[2],
             pages  => $pages, price => $price*$DOLLAR, publisher => $
+publisher }
}

Perl 5 Pocket Reference, 3rd Edition: Programming Tools (O'Reilly Perl
+)
 by Johan Vromans, Larry Wall, Linda Mui
 96 pages, $9.95

(title => "Perl 5 Pocket Reference, 3rd Edition: Programming Tools",
 author1=> "Johan Vromans",
...
 price  => "$9.95",
 publisher => "O'Reilly Perl")