Re^2: Interesting line which I read from Monk's snippets

[pKai]

in reply to Re: Interesting line which I read from Monk's snippets
in thread Interesting line which I read from Monk's snippets

To deliver the same result (i. e. undef) for not found input values, the tr solution has to be a bit more elaborate.

Somewhat along the line of

my $found = (my $pat = substr($0,0,1)) =~ tr/abcd/-=~^/;
$pat = $found ? $pat : undef;