====== padcode ======

<code perl>
#!/usr/pkg/bin/perl

while (<>) {
	chop $_;
	$code = $_;
	$code =~ tr/a-zA-Z/2223334445556667777888999922233344455566677778889999/;
	print "$code $_\n";
}
</code>

{{tag>padcode}}
Category: [[padcode:]]

~~LINKBACK~~
~~DISCUSSION~~