SUB my_func
    COMMAND1
    COMMAND2
ENDSUB
CALL my_func

##</code><code>##

sub my_func {
   command1;
   command2;
}
my_func;


##</code><code>##

$;=sub{$/};@;=map{my($a,$b)=($_,$;);$;=sub{$a.$b->()}}
split//,".rekcah lreP rehtona tsuJ";$\=$ ;->();print$/