#! /usr/local/bin/perl -w 

        SWITCH: {
           ($line =~m/^\s\s\w/) or ($line =~m/^\s\s\s\w/)  {
           $prevops=substr($line,0,20);
           $nuline=($ops."\t".$line);
           last SWITCH;
               }
           $line =~m/^\s\s\s\s\w/ do {
           $nuline=($prevops."\t".$line);
           last SWITCH;
               }
       }
