I would do something like this:

#!/usr/bin/perl -w
use strict;
#assume the filelist comes from STDIN
while (<>)
{
    print $1."output61".$2."\n" if /(.*?\/)input01(.*)/;
}
[download]

Jouke Visser, Perl 'Adept'
Using Perl to help the disabled: pVoice and pStory

Comment on Re: Reformating pathname Download Code