#!/usr/bin/perl
# cdname The best of
# artist Gipsy Kings
# track Hotel California

#DTITLE=àÒÉÊ ìÏÚÁ. äìñ õíá
#TTITLE0=
#TTITLE1=
#TTITLE2=
#PLAYORDER=1,2,3,4,5,7,8,9,10,11,12

eval '$'.$1.'$2;' while $ARGV[0] =~ /^([A-Za-z_0-9]+=)(.*)/ && shift;
			# process any FOO=bar switches
$[ = 1;			# set array base to 1
$, = ' ';		# set output field separator
$\ = "\n";		# set output record separator

while (<>) {
    chop;	# strip record separator
/^         *(.*)(.*)/ && do {
	$title = $1.$2;
if ( $title =~ m|(.*)\.(.*)| ) {}
        $artist = $1 ;
        $cdname = $2 ;
        printf ("cdname $cdname\n");
        printf ("artist $artist\n");
    } ;
/^[0-9][0-9]*[.]([0-9][0-9]*)[.] *(.*)/ && do {
	$nomer = $1-1;
	$nazwanie = $2;
	if ($nazwanie =~ /([+\-\/.]*)$/)  {$ocenka=$1;} else {$ocenka=""};
	printf("track %s\n",$nazwanie) ;
    } ;
}