($number) = /(\d+)~$/ if /INC\*XX\*/;