Select Code to Download

# get strings from GUI.  
my $old = my $new = $_->children->get; # get old filename
...
    $new =~ s/$pattern/qq{$replace}/eeg;
    print STDERR $old." => ".$new."\n";
}