in reply to changing inside a file

File::Recurse might be another option...

In Section Seekers of Perl Wisdom