if ($id =~ /^(\D)?(\d+(\.\d+)?)$/ ) {
   my ( $flag, $i ) = ($1, $2);
   say "$flag|$i" ;        
}