$ perl -ce 'chop ($status=\Q$snmpset $oid s $rtr.cfg\Q);'
Substitution pattern not terminated at -e line 1.