Select Code to Download

#! perl
use strict;
...
}

untie @lines;

abcd    123     456     defg
cdefg   23      Missing as
Missing 345     235     Missing
xsd     Missing swe     Missing