Select Code to Download

perl -i~ -pe 'if($ARGV ne $l){$f=$l=$ARGV;$f=~s \.wra//;substr($_,-11)
+=$f.$/;}' *

Modification of a read-only value attempted at -e line 1, <> line 1.