use 5.010;
use strict;
use PerlX::Qtrim;

my $string = qtrim{
	Hello
	World
};

say "[$string]";