1 and 5

my $string = "hello world";
print $string =~ /^.{@{[!$[]}}(.{${\($]<<$]>>$])}})/; # 'ello '
[download]

or print $]>>$?;