my $out = '';
                                                                                
open OUTH, '>', \$out;
                                                                                
my $var = 'world';
format OUTH =
Hello @>>>>>>>>>>>>>>>
      $var
.
write OUTH; 
                                                                                
print $out;