my @regpart = split(/\*/,$FORM{'f:'.$i}) ;
my $regdata = $rec_set[$i] ;
$regdata =~ s/\Q$regpart[0]\E/$regpart[1]/g ;