% echo blakem | perl -MO=Deparse -peprint -elength -eq
LINE: while (defined($_ = <ARGV>)) {
    print length '}continue{print or die qq(-p destination: $!\\n)';
}
-e syntax OK