Help for this page

Select Code to Download

Select or download this

use Text::ParseWords;
use File::Basename;
...
                    
                   $file => $file . $suffix
               } @teststr;