my $SYS_HOME = "/x01/home";
my $LOG_FILE = $SYS_HOME."/ABC.log";
open (FH, '<', $LOG_FILE) || die "Cant open : $!";
while (<FH>) {
chomp;
my @FIGURE =~ /~|TOTAL|([\d]+/;
foreach (@FIGURE) {
	print "$_\n";
	}
}