my @items = ('"Title Text Example"', 'Title Text Example', ' Title Text Example ',' "Title Text Example"');
foreach my $title (@items) {
    my $changed = 0;
    if ($title =~ s/^[\s"]+//) { $changed=1; }
    if ($title =~ s/[\s"]+$//) { $changed=1; }
    if ($changed) {
        print "$title\n";
    }
}