#!/usr/bin/perl
use feature 'say';
use strict;
use warnings;

my $str = " a \n \n b\n";
say $str =~ s/^\s*|\s*$//mgr;

$_ = " a \n\n b\n";
s/^\s*|\s*$//gm;
print "$_\n";