Don't parse HTML with regexps. Use an HTML parser.

#!/usr/bin/env perl

use strict;
use warnings;
use HTML::HTML5::Parser;
use XML::LibXML::QuerySelector;

my $input = shift
    or die("Usage: $0 filename\n");

my $html = HTML::HTML5::Parser->load_html(location => $input);

print $html->querySelector('h2.product-name a')->textContent, "\n";
print $html->querySelector('div.price-box span.price')->textContent, "
+\n";
[download]

Output is:

Please help 
$20.00
[download]