$ perl -e'
   use v5.40;
   use feature qw( bareword_filehandles );

   use Tie::Simple qw( );

   tie *FH, Tie::Simple::, undef,
      PRINT => sub {
         shift;
         my $msg = join( defined( $, ) ? $, : "", @_ );
         $msg .= $\ if defined( $\ );
         say STDOUT "[$msg]";
      };

   say FH "Hello!";
'
[Hello!
]

##</code><code>##

$ perl -e'
   use v5.40;

   use Symbol      qw( gensym );
   use Tie::Simple qw( );

   my $fh = gensym;

   tie *$fh, Tie::Simple::, undef,
      PRINT => sub {
         shift;
         my $msg = join( defined( $, ) ? $, : "", @_ );
         $msg .= $\ if defined( $\ );
         say STDOUT "[$msg]";
      };

   say $fh "Hello!";
'
[Hello!
]