#!/usr/bin/perl/ -w
use strict;

open UDATA, '<', "todo.users" or die "Failed to open userdata... $!";

while (my $line = <UDATA>) {
    chomp $line;
    my $nuline =~ tr/a-zA-Z/n-za-mN-ZA-M/;
    print "$nuline\n";
}

close UDATA;