$line = "*.PIN foo:I bar:O vdd:I vssq:I vssa:O";
$line =~ s/\b(\w+):([A-Z])\b/$rs{$1} ? "$1:$rs{$1}" : "$1:$2"/eg;