http://qs1969.pair.com?node_id=343778


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