You'll also enjoy
YAPE::Regex::Explain by
japhy reading the output of the following snippet:
#!/usr/bin/perl
use strict;
use warnings;
use YAPE::Regex::Explain;
$\ = "\n*************\n";
# Your original
print YAPE::Regex::Explain->new(qr/[a-zA-Z]/)->explain;
print YAPE::Regex::Explain->new(qr/[a-zA-Z]+/)->explain;
print YAPE::Regex::Explain->new(qr/([a-zA-Z]+)/)->explain;
# The solution
print YAPE::Regex::Explain->new(qr/^([a-zA-Z]+)$/)->explain;
Flavio (perl -e "print(scalar(reverse('ti.xittelop@oivalf')))")
Don't fool yourself.