perl -i~ -pe "if($ARGV ne $z){$f=$z=$ARGV;$f=~s/\.wra//;/(.{10})$/; $r=$1} s/$r/$f/g" *.wra