#     $file = "$lsdir" . '/album' . "$album_nr" . '/album.dat';
# becomes
$file = "$lsdir/album$album_nr/album.dat";

#      open FILE, "$file" or
# Don't quote variables unless you're constructing new strings
open FILE $file or

#  $name = (/.*\"(.*)\"/)[0];
# no need for leading .*; better as
($name) = /"(.*)"/;

#  s/\n//g;
#  ($desc = (/.*\"(.+)\"/)[0]) || ($desc = "");
# Better as
tr/\n//d;
($desc) = /"(.+)"/;