my $TestText = <$in>;

##</code><code>##

$TestText = <$in>;