#!/usr/local/bin/perl

use strict;
use warnings;
open(FILE, ">height.txt") || die "file can't be opened";


while(<FILE>) {
     chomp;
     s/'/\t/g;           
   }                     
   close FILE;