You may like this:

# assuming that $path contains the path to be changed
my $old = 'input01';
my $new = 'output61';
$path =~ s/$old/$new/;
[download]

tachyon