Re: Fun - Each character at most once

[email protected] schreef:
> Can anyone improve the above so that it checks the whole of <>, not just one
> line? Bonus points for an explicit multi-character message rather than undef
> on failure. 

#!perl -0234
<>=~m{(.)[^$/]*\1}sand&two

contains no characters twice (except for the final \n), checks the whole
of <>, and prints a not-very-appropriate message on failure.

Eugene