my $fmt = '<section id="ch%02dfm" label="" xreflabel="" role="fm">';
# ..later..
$_ =~ s/<CT>/sprintf $fmt, $acno/ge;

##</code><code>##

s/<CT>/sprintf $fmt, $acno/ge;