my $header = <INFO>;
my $sequence;
{
    local $/;
    $sequence = <INFO>;
}

##</code><code>##

$commentout = $commentout .= $position;

##</code><code>##

$commentout = $commentout . $position;

##</code><code>##

$commentout .= $position;

##</code><code>##

my $commentout = '$' . $position;