perl -pi -e's/\|(\d+)$/|+615$1/ if /^0001/' personel.txt