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

##</code><code>##

perl -i~ -pe 'if($ARGV ne $z){$f=$z=$ARGV;$f=~s/\.war$//;s/.{10}$/$f/}' * 

##</code><code>##

perl -i~ -pe 'if($ARGV ne $z){$z=$ARGV; s/.{10}$/$z/; s/\.war$//}' *