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

##</code><code>##

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