if (/^I/) {
                        read_cal(substr($_,1), $mode);
                } else {
                        print "|$_|\n";
                }

##</code><code>##

                if (/^I/) {
                        read_cal(substr($_,1), $mode);
                }
                print "|$_|\n";