just copy and paste the input to output in perl