Unnamed

use strict;
use warnings;

_deblock('{1{1}}');

sub _deblock {
  my $smk = shift;
  $smk =~ s/\{([^\{]+?)\}/_block_state($1)/;
  return;
}

sub _block_state {
  my $blk = shift;
  print $blk, "\n";
}