is( $got3, "#$var#", "''''");

##</code><code>##

# exactly seven chars in the field:
my $got3 = form "#{'''''}#", $var; 
is( $got3, "#$var#\n", "'''''");

##</code><code>##

my $got1 = form "#{'(7)'}#", $var;
is( $got1, "#$var#\n", "'(7)'");