use strict; 
use warnings;   
use Data::Dumper;
use Web::Scraper;
            
open FH, 'lee-morgan.html' or die $!;
my $data = do{ local $/; <FH> };
close FH;       
            
my $artists = scraper {
    process '.release-height > p', 'bio[]' => 'TEXT';
    process '.recording-dates > h3', date => 'TEXT';
};

my $res = $artists->scrape( $data );
 
print Dumper $res;