$s = "\cA000014\cAB0000BVE1I\c@";

print $s;
?000014?B0000BVE1I

$s =~ tr[\x20-\x7f][]cd;

print $s;
000014B0000BVE1I