Help for this page
($number) = /(\d+)~$/ if /INC\*XX\*/;
use warnings; use strict; ... close $fh; print Dumper($number);