#!/bin/perl

for(<>){
        split($_,"\t")
        for(@_){
                print $_
        }
}