Select Code to Download

my ($text, $page) = split "\t", $line;
$page =~ tr/O/0/ and warn "Replaced 'O' with '0' in page $page";