in reply to eval unexpected return value '1'
How come?
That's because your sub cadr returns 1 upon match, not the capture. Try
sub cadr { $_[0] =~ /\(\'(.*)\'\)/ and return $1 }
--shmem
_($_=" "x(1<<5)."?\n".q·/)Oo. G°\ /
/\_¯/(q /
---------------------------- \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}
In Section
Seekers of Perl Wisdom