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;