sub createButtons{ ($outfile,$filename)=@_; $replace = 'ay'; $find = 'DFT'; if(index($filename, $find) != -1){ $filenameDFT = $filename; $filenameLAY = $filename; $filenameLAY =~s/$find/$replace/; print $outfile " Layout DfT\n \n"; } #print "$filenameDFT\n"; else { $filenameLAY = $filename; $filenameDFT= $filename; $filenameDFT =~s/$replace/$find/; print $outfile " Layout DfT\n \n"; } return(@OutputButtons) }