my @items = ('"Title Text Example"', 'Title Text Example', ' Title Text Example ',' "Title Text Example"');
foreach my $title (@items) {
    $title =~ s/^\s*\"?|\"?\s*$//g;
    print length($&)," $title\n";
}