Select Code to Download

perl -a010F -lpe "$_=join qq(\t),qq('$F[0]'),'=>',qq('$F[1]')"

#!/usr/bin/perl -w
use strict;
...
    my @columns = split /\t/;
    printf "'%s'\t'=>\t'%s'\n", @columns;
};