To expand a little on McA’s answer, translation of:

`sed -i 's/QOS_PROFILE_ID/x1/g;s/CHARGING_PROFILE_ID/x2/g;s/CONTENT_FI
+LTERING_PROFILE_ID/x3/g;...' $abc1`;
[download]

to Perl is straightforward:

$abc1 =~ s/QOS_PROFILE_ID/x1/g;
$abc1 =~ s/CHARGING_PROFILE_ID/x2/g;
$abc1 =~ s/CONTENT_FILTERING_PROFILE_ID/x3/g;
...
[download]

Hope that helps,