$ perl -i.bak -pe 's/(\d+)$/+615$1/ if /^0001/' your_filename