in reply to Copy column

Can you show your Perl code?