#!/usr/bin/perl -w
use strict;

while (<>) {
    chomp;
    my @columns = split /\t/;
    printf "'%s'\t'=>\t'%s'\n", @columns;
};