foreach (@rebasefile) {
   if (/1 .. 10/) {next;}
   if (/^\s*$/)   {next;}

   my @fields = split("",$_);
   $name = shift(@fields);
   $site = pop(@fields);
   $regexp = IUB_to_regexp($site);
   $rebasehash{$name}="$site $regexp";
}
return %rebasehash;
}