if($line=~m/\s*fiscal/mi )       {print $line."\n";}