+
+# different names for songs
+sub song_map {
+ my $song = shift;
+
+ $song =~ s/Paranoia -Rebirth-/PARANOiA Rebirth/;
+ $song =~ s/The Center of the heart/The Centre of the Heart (Stonebridge Club Mix)/;
+ $song =~ s/Can't stop falling in love/Can't Stop Fallin' in Love/;
+ $song =~ s/B4U -B4 ZA Beat Mix-/B4U (B4 Za Beat Mix)/;
+ $song =~ s/Jam Jam Reggae/Jam Jam Reggae (AM Swing Mix)/;
+ $song =~ s/Trip Machine -Climax-/Trip Machine Climax/;
+ $song =~ s/Dont try to stop it/Don't Try to Stop It/;
+ $song =~ s/Healing Vision -AM-/Healing Vision (Angelic Mix)/;
+ $song =~ s/5,6,7,8/5, 6, 7, 8/;
+ $song =~ s/Keep On Movin/Keep On Movin'/;
+ $song =~ s/So Deep/So Deep (Perfect Sphere Mix)/;
+ $song =~ s/Aarons Party/Aaron's Party (Come Get It)/;
+ $song =~ s/Candy \*/Candy\xe2\x98\x86/;
+ $song =~ s/www\.blondie girl/www.blonde girl (MOMO Mix)/;
+ $song =~ s/DXY/DXY!/;
+ $song =~ s/Burning the floor/Burnin' the Floor/;
+ $song =~ s/Never Gonna Make/Never Gonna Make (Factory Team Mix)/;
+ $song =~ s/Max300/Max 300/;
+ $song =~ s/Era/era (nostalmix)/;
+ $song =~ s/Electro Tuned/Electro Tuned (the SubS Mix)/;
+ $song =~ s/Make a Jam/Make A Jam!/;
+ $song =~ s/Paranoia KCET -clean mix-/Paranoia KCET (Clean Mix)/;
+ $song =~ s/Cant Stop -Speed Mix-/Can't Stop Fallin' in Love (SPEED MIX)/;
+ $song =~ s/Love This Feelin/Love This Feelin'/;
+ $song =~ s/Trip Machine -Luv mix-/Trip Machine (Luv Mix)/;
+ $song =~ s/Let The Beat Hit Them/Let the Beat Hit 'em!/;
+ $song =~ s/Luv To Me/Luv to Me (AMD Mix)/;
+ $song =~ s/20 November/20th November/;
+
+ $song =~ s/Love Shine/LOVE \xe2\x9d\xa4 SHINE/;
+ $song =~ s/Long Train Running/LONG TRAIN RUNNIN'/;
+ $song =~ s/Door of Magic/Mahou no Tobira (Theme Of Space Maco) [Door of Magic]/;
+ $song =~ s/True -trance sunrise mix-/true... ~trance sunrise mix~/;
+ $song =~ s/Rhythm and Police/RHYTHM AND POLICE (K.O.G G3 Mix)/;
+ $song =~ s/Burnin the floor -momo mix-/BURNIN' THE FLOOR (MOMO MIX)/;
+ $song =~ s/Senorita -speedy mix-/SENORITA (Speedy Mix)/;
+ $song =~ s/Drop out -remix-/DROP OUT (FROM NONSTOP MEGAMIX)/;
+ $song =~ s/57 metallic gray/Heaven is a '57 metallic gray (gimmix)/;
+ $song =~ s/Brilliant 2 U/BRILLIANT 2U/;
+ $song =~ s/Blue Impulse/Aoi Shoudou (for EXTREME) [Blue Impulse]/;
+ $song =~ s/Sobakasu \(Freckles\)/SOBAKASU FRECKLES/;
+ $song =~ s/Synchronized Love/SYNCHRONIZED LOVE (Red Monster Hyper Mix)/;
+ $song =~ s/Orion\.78 -civ mix-/ORION .78 (civilization mix)/;
+
+ return $song;
+}