#!/usr/bin/env perl
use strict;
use warnings;

my @strings = ('  Test ', 'Test 2 ', ' A
', 'multi

line
string
','


');
foreach my $string (@strings) {
        $string =~ s/^\s+//m;
        $string =~ s/\s+$//m;
        print "'$string'\n";
}