$str  = q[new text];
$str .= sample( qw(1 2 3) ); 
$str .= q[more new text]; 

print_now( "$str \n" ); 

sub sample {
    print q[sample(): ], @_, "\n"; 
}

sub print_now {
    say @_;   ## or
    print $FH @_; 
}