$ perl <<___
if(1) {
   print 44;
}
___

44
                           # arrow up
$ perl <<___
if(1) {
   print 44;
}
___