$ perl -wE '$_ = " - - "; s/^\s*\b(.*)\b\s*$/$1/g; say qq["$_"]'
" - - "

##</code><code>##

use v6;
say ' - - '.trim.perl;