my $id = 0;
my $positionid;
while ( $id < 50 ) {
   $positionid = sprinft( "REG-RC-%04d", $id++ );
   print "Position ID: $positionid<br />\n";
}