$commentout = $commentout .= $position;
s/$position/$commentout/;
print OTHER;  #THIS LINE HERE!!
$x++;

##</code><code>##

print OTHER "I am printing foo to file\n";

##</code><code>##

s/$position/$commentout/

##</code><code>##

$variable =~ s/<regular-expression>/<substitution-here>/;

#For example the following 

my $variable = "Blue Car";
print $variable."\n";
$variable =~ s/Blue/Red/;
print $variable."\n";