in reply to A Quick Regex Question

while (<>) {
    print if lc(join '',sort split//) =~ /e.*l.*p.*r/;
}

[download]
We're building the house of the future together.

In Section Seekers of Perl Wisdom