Select Code to Download

$ perl -MO=Deparse -pi -e 's/GX_RAR_RAA_TRANSACTION/TRAR/g;s/GX_CCR_CC
+A_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 = ""; }
...
    die "-p destination: $!\n" unless print $_;
}
-e syntax OK

#!/usr/bin/perl
use Data::Dumper;
...
    move( $abc1,
        "/data/admin/scripts/SapcmedadpebM/xdecoder/decodedir/compleat
+/" );
}

#!/usr/bin/perl
use Data::Dumper;
...
    move( $file,
        "/data/admin/scripts/SapcmedadpebM/xdecoder/decodedir/compleat
+/" );
}