sub replace {
  my $label = shift;
  ...
}