$ perl -Mstrict -Mwarnings -e '
    use Tie::File;
    tie my @fred_data, q{Tie::File}, q{fred.dat} or die $!;
    @fred_data = map { s/(^|\t)(?=\t|$)/${1}Missing/g; $_ } @fred_data;
    untie @fred_data;
'