perl -M"5.01;say q&" -Mstrict -anE " print 'Hi'; }&;{"
;use strict;use feature ':5.26';LINE: while (<>) {our @F=split(' ');
 print 'Hi'; }