C:\Perl\test>perl order_sub.pl
BEFORE
BETWEEN
Hello
AFTER