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