rename_bones.pl

use strict;
use warnings;

my $filename = $ARGV[0];
my $data;
my $fh;
my $fhw;
my $row;

open($fh, $filename)
  or die "Could not open file '$filename' $!";

print "Parsing $filename\n";

while ($row = <$fh>) {

    chomp $row;

    $row =~ s/"(ValveBiped)?.?bip(\d+)?_pelvis"/"j_mainroot"/i;
    $row =~ s/"(ValveBiped)?.?bip(\d+)?_spine(_0)?"/"j_spine1"/i;
    $row =~ s/"(ValveBiped)?.?bip(\d+)?_spine_?1"/"j_spine2"/i;
    $row =~ s/"(ValveBiped)?.?bip(\d+)?_spine_?2"/"j_spine3"/i;
    $row =~ s/"(ValveBiped)?.?bip(\d+)?_spine_?[34]"/"j_spine4"/i;
    $row =~ s/"(ValveBiped)?.?bip(\d+)?_neck(\d)?"/"j_neck"/i;
    $row =~ s/"(ValveBiped)?.?bip(\d+)?_head(\d)?"/"j_head"/i;
    $row =~ s/"(ValveBiped)?.?bip(\d+)?_(collar_R|R_Clavicle)"/"j_clavicle_ri"/i;
    $row =~ s/"(ValveBiped)?.?bip(\d+)?_(collar_L|L_Clavicle)"/"j_clavicle_le"/i;
    $row =~ s/"(ValveBiped)?.?bip(\d+)?_(upperArm_R|R_UpperArm)"/"j_shoulder_ri"/i;
    $row =~ s/"(ValveBiped)?.?bip(\d+)?_(upperArm_L|L_UpperArm)"/"j_shoulder_le"/i;
    $row =~ s/"(ValveBiped)?.?bip(\d+)?_R_Trapezius"/"j_shouldertwist_ri"/i;
    $row =~ s/"(ValveBiped)?.?bip(\d+)?_L_Trapezius"/"j_shouldertwist_le"/i;
    $row =~ s/"(ValveBiped)?.?bip(\d+)?_(lowerArm_R|R_Forearm)"/"j_elbow_ri"/i;
    $row =~ s/"(ValveBiped)?.?bip(\d+)?_(lowerArm_L|L_Forearm)"/"j_elbow_le"/i;
    $row =~ s/"(ValveBiped)?.?bip(\d+)?_(hip_L|L_Thigh)"/"j_hip_le"/i;
    $row =~ s/"(ValveBiped)?.?bip(\d+)?_(hip_R|R_Thigh)"/"j_hip_ri"/i;
    $row =~ s/"(ValveBiped)?.?bip(\d+)?_(knee_L|L_Calf)"/"j_knee_le"/i;
    $row =~ s/"(ValveBiped)?.?bip(\d+)?_(knee_R|R_Calf)"/"j_knee_ri"/i;
    $row =~ s/"(ValveBiped)?.?bip(\d+)?_(foot_R|R_Foot)"/"j_ankle_ri"/i;
    $row =~ s/"(ValveBiped)?.?bip(\d+)?_(foot_L|L_Foot)"/"j_ankle_le"/i;
    $row =~ s/"(ValveBiped)?.?bip(\d+)?_(toe_L|L_Toe(\d)?)"/"j_ball_le"/i;
    $row =~ s/"(ValveBiped)?.?bip(\d+)?_(toe_R|R_Toe(\d)?)"/"j_ball_ri"/i;
    $row =~ s/"(ValveBiped)?.?bip(\d+)?_(hand_R|R_Hand)"/"j_wrist_ri"/i;
    $row =~ s/"(ValveBiped)?.?bip(\d+)?_(hand_L|L_Hand)"/"j_wrist_le"/i;
    $row =~ s/"(ValveBiped)?.?Anim_Attachment_RH"/"tag_weapon_right"/i;
    $row =~ s/"(ValveBiped)?.?Anim_Attachment_LH"/"tag_weapon_left"/i;
    $row =~ s/"(ValveBiped)?.?bip(\d+)?_R_Wrist"/"j_wristtwist_ri"/i;
    $row =~ s/"(ValveBiped)?.?bip(\d+)?_L_Wrist"/"j_wristtwist_le"/i;
    $row =~ s/"(ValveBiped)?.?bip(\d+)?_(thumb_0_R|R_Finger0)"/"j_thumb_ri_1"/i;
    $row =~ s/"(ValveBiped)?.?bip(\d+)?_(thumb_0_R|R_Finger01)"/"j_thumb_ri_2"/i;
    $row =~ s/"(ValveBiped)?.?bip(\d+)?_(thumb_0_R|R_Finger02)"/"j_thumb_ri_3"/i;
    $row =~ s/"(ValveBiped)?.?bip(\d+)?_(thumb_0_L|L_Finger0)"/"j_thumb_le_1"/i;
    $row =~ s/"(ValveBiped)?.?bip(\d+)?_(thumb_0_L|L_Finger01)"/"j_thumb_le_2"/i;
    $row =~ s/"(ValveBiped)?.?bip(\d+)?_(thumb_0_L|L_Finger02)"/"j_thumb_le_3"/i;
    $row =~ s/"(ValveBiped)?.?bip(\d+)?_(index_0_R|R_Finger1)"/"j_index_ri_1"/i;
    $row =~ s/"(ValveBiped)?.?bip(\d+)?_(index_0_R|R_Finger11)"/"j_index_ri_2"/i;
    $row =~ s/"(ValveBiped)?.?bip(\d+)?_(index_0_R|R_Finger12)"/"j_index_ri_3"/i;
    $row =~ s/"(ValveBiped)?.?bip(\d+)?_(index_0_L|L_Finger1)"/"j_index_le_1"/i;
    $row =~ s/"(ValveBiped)?.?bip(\d+)?_(index_0_L|L_Finger11)"/"j_index_le_2"/i;
    $row =~ s/"(ValveBiped)?.?bip(\d+)?_(index_0_L|L_Finger12)"/"j_index_le_3"/i;
    $row =~ s/"(ValveBiped)?.?bip(\d+)?_(middle_0_R|R_Finger2)"/"j_mid_ri_1"/i;
    $row =~ s/"(ValveBiped)?.?bip(\d+)?_(middle_0_R|R_Finger21)"/"j_mid_ri_2"/i;
    $row =~ s/"(ValveBiped)?.?bip(\d+)?_(middle_0_R|R_Finger22)"/"j_mid_ri_3"/i;
    $row =~ s/"(ValveBiped)?.?bip(\d+)?_(middle_0_L|L_Finger2)"/"j_mid_le_1"/i;
    $row =~ s/"(ValveBiped)?.?bip(\d+)?_(middle_0_L|L_Finger21)"/"j_mid_le_2"/i;
    $row =~ s/"(ValveBiped)?.?bip(\d+)?_(middle_0_L|L_Finger22)"/"j_mid_le_3"/i;
    $row =~ s/"(ValveBiped)?.?bip(\d+)?_(ring_0_R|R_Finger3)"/"j_ring_ri_1"/i;
    $row =~ s/"(ValveBiped)?.?bip(\d+)?_(ring_0_R|R_Finger31)"/"j_ring_ri_2"/i;
    $row =~ s/"(ValveBiped)?.?bip(\d+)?_(ring_0_R|R_Finger32)"/"j_ring_ri_3"/i;
    $row =~ s/"(ValveBiped)?.?bip(\d+)?_(ring_0_L|L_Finger3)"/"j_ring_le_1"/i;
    $row =~ s/"(ValveBiped)?.?bip(\d+)?_(ring_0_L|L_Finger31)"/"j_ring_le_2"/i;
    $row =~ s/"(ValveBiped)?.?bip(\d+)?_(ring_0_L|L_Finger32)"/"j_ring_le_3"/i;
    $row =~ s/"(ValveBiped)?.?bip(\d+)?_(pinky_0_R|R_Finger4)"/"j_pinky_ri_1"/i;
    $row =~ s/"(ValveBiped)?.?bip(\d+)?_(pinky_0_R|R_Finger41)"/"j_pinky_ri_2"/i;
    $row =~ s/"(ValveBiped)?.?bip(\d+)?_(pinky_0_R|R_Finger42)"/"j_pinky_ri_3"/i;
    $row =~ s/"(ValveBiped)?.?bip(\d+)?_(pinky_0_L|L_Finger4)"/"j_pinky_le_1"/i;
    $row =~ s/"(ValveBiped)?.?bip(\d+)?_(pinky_0_L|L_Finger41)"/"j_pinky_le_2"/i;
    $row =~ s/"(ValveBiped)?.?bip(\d+)?_(pinky_0_L|L_Finger42)"/"j_pinky_le_3"/i;

    $data .= "$row\n";
}

close $fh;

open($fhw, '>', $filename);
print $fhw "$data\n";
close $fhw;

print "Done!";
exit 0;