Select Code to Download

my %inc = map { $_ => ($content =~ /inc_$_=(.*?)\n/)[0] || undef }
              qw(albums genres artists songs ratings year);

use strict;
use warnings;
...
              qw(albums genres artists songs ratings year);
print Dumper(\%inc);
}

$VAR1 = {
          'artists' => undef,
...
          'albums' => 'albumvalue',
          'year' => 'yearvalue'
        };