$_ = "xxxxx FOO=02 xxxxx PROGRAM=ZKQMR_INSP xxxxx";
/FOO=(\d+)/;
/PROGRAM=(.*)\\/;
my $program = $1;
print("$program\n");  # 02