in reply to s/\w/random character/g
#!/usr/bin/perl -w use strict; sub randchar { return chr int(rand(26)) + 65; } while (<DATA>) { s!\w!&randchar!ge; print $_; } __DATA__ ABCDEFG
In Section
Seekers of Perl Wisdom
in reply to s/\w/random character/g
#!/usr/bin/perl -w use strict; sub randchar { return chr int(rand(26)) + 65; } while (<DATA>) { s!\w!&randchar!ge; print $_; } __DATA__ ABCDEFG