$ perl -MO=Deparse -pi -e 's/GX_RAR_RAA_TRANSACTION/TRAR/g;s/GX_CCR_CCA_TRANSACTION/TCCA/g;s/QUOTA_GRANTED/TQG/g;s/QOS_ASSIGNED_TO_DEFAULT_BEARER/TQA/g;s/RULE_INSTALLED/TRI/g;s/RULE_REMOVED/TRR/g'
BEGIN { $^I = ""; }
LINE: while (defined($_ = <ARGV>)) {
    s/GX_RAR_RAA_TRANSACTION/TRAR/g;
    s/GX_CCR_CCA_TRANSACTION/TCCA/g;
    s/QUOTA_GRANTED/TQG/g;
    s/QOS_ASSIGNED_TO_DEFAULT_BEARER/TQA/g;
    s/RULE_INSTALLED/TRI/g;
    s/RULE_REMOVED/TRR/g;
}
continue {
    die "-p destination: $!\n" unless print $_;
}
-e syntax OK