while(chomp(my $line = <$fh>)) {
    $show .= "$line\n";
}

##</code><code>##

{
    local $/ = undef;
    $show = <$fh>;
}