use 5.010;
use strict;

QTRIM_SETUP: {
	my $trimmer;
	BEGIN {
		$trimmer = sub ($) {
			@_ = map { s/(^\s+)|(\s+$)//g; $_ } split /\n/, shift;
			shift until length $_[0];
			pop until length $_[-1];
			join "\n", @_;
		}
	}
	use PerlX::QuoteOperator qtrim  => { -emulate => 'q',  -with => $trimmer };
	use PerlX::QuoteOperator qqtrim => { -emulate => 'qq', -with => $trimmer };
}

my $string = qtrim{
	Hello
	World
};

say "[$string]";