use warnings;
my $filename = 'accountin.txt';
my $renamedata = 'rename.txt';
local @var = ($renamedata);
$var = $_;
{
local @ARG = ($renamedata);
while ( $renamedata ) {
my ($find,$replace) = split /;/, $;
local @ARGV = ($filename);
while( <> )
{
if( s/$find/$replace/ig ) {
print;
}
else {
print;
}
}
}
}