#! /local/bin/perl -w

use strict;

my @list = `ls -1`;

foreach (@list) {
    chop();
    my $file = $_;
    s/n04u1/tstvex/;
    `mv $file $_`;
}
