% perl -e 'local $1 = 1'
Modification of a read-only value attempted at -e line 1.

% perl -e 'local $^S = 1'
Modification of a read-only value attempted at -e line 1.