open (INPUT, "<$flatfile");
while(<INPUT>) {
   $_ =~ /[dlrwxsS-]{10}\s/\n/g;
   print;
}
close INPUT;