Select Code to Download

#!/usr/bin/perl
use strict;
...

__END__
match

my $searchString = qr/Price: \$([0-9]+\.[0-9]+)/;