#Set common delimiter for (@lines2) { s/(\t|;)/\t/g } for (@rejects) { s/(\t|;)/\t/g } #### #Set common delimiter tr/\t;/\t/ for @lines2, @rejects;