replace.pl.txt
sub replaceRhythmName
{
local($_) = @_;
s/Kick /Kick Drum /;
s/K(\d)/Kick $1/;
s/S(\d)/Snare $1/;
s/Std\./Standard /;
s/909/TR-909/;
s/808/TR-808/;
s/707/TR-708/;
s/BD/Kick/;
s/MC /MC-500 /;
s/Cncrt/Concert /;
# s/Snr/SD/;
s/Snr/Snare/;
s/SD/Snare/;
s/Snr\./Snare /;
s/Fing/Finger /;
s/Snp/Snap /;
s/Scr\./Scratch /;
s/Sq\./Square /;
s/Mt\./Metronome /;
s/Sd\./Side /;
s/C\./Closed /;
s/P\./Pedal /;
s/O\./Open /;
s/Hi\./High /;
s/Crsh/Crash /;
s/Cym/Cymbal /;
s/Ride/Ride /;
s/Chin./Chinese /;
s/Ride/Ride /;
s/Tambourn/Tambourine/;
s/Splsh/Splash /;
s/Vib-/Vibra-/;
s/Low(\w)/Low $1/;
s/MH/Mute High /;
s/OH/Open High /;
s/Timbl/Timbale/;
s/SH\./Short High /;
s/LL\./Long Low /;
s/S\./Short /;
s/L\./Long /;
s/W\./Wood /;
s/Blk/Block/;
s/Op\./Open /;
s/Trigl/Triangle/;
s/S$/Snare/;
s/Elec\./Electric /;
s/Elec /Electric/;
$_;
}
1;