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

##</code><code>##

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