while (1) {
   if (/\G($named)/gc) { print transform_named($1) }
   elsif (/\G($http)/gc) { print transform_http($1) }
   ...
   elsif (/\G(.)/gcs) { print $1 }
   else { last }
}