% This document was generated automagically by lgrind.  DO NOT EDIT.

\LGinlinefalse\LGbegin\lgrinde
\L{\LB{\C{}\V{\#}!\1usr\1interp\1perl -w}}
\CE{}\L{\LB{}}
\L{\LB{\C{}\V{\#} PERL EXAMPLE OF CASE SHIFT ESCAPES }}
\CE{}\L{\LB{\C{}\V{\#} By Louis Ziantz}}
\CE{}\L{\LB{}}
\L{\LB{\C{}\V{\#} Description: This program is a demonstration the use of}}
\CE{}\L{\LB{\C{}\V{\#}             case shift backslash escape character sequences.}}
\CE{}\L{\LB{\C{}\V{\#} Procedure:   Case shift escapes are applied to a number of}}
\CE{}\L{\LB{\C{}\V{\#}             strings, and the results are printed.}}
\CE{}\L{\LB{\C{}\V{\#} Input:       None}}
\CE{}\L{\LB{\C{}\V{\#} Output:      Various strings that have their case modified.}}
\CE{}\L{\LB{}}
\L{\LB{\V{\$fred}_=_\S{}\"fred\"\SE{};}}
\L{\LB{\V{\$bigfred}_=_\S{}\"\2U\$fred\"\SE{};}}
\L{\LB{\K{print}_\S{}\"\$bigfred\2n\"\SE{};}}
\L{\LB{\C{}\V{\#} prints FRED\<newline\>}}
\CE{}\L{\LB{\V{\$bigbarney}_=_\S{}\"BARNEY\"\SE{};}}
\L{\LB{\V{\$barney}_=_\S{}\"\2L\$bigbarney\"\SE{};}}
\L{\LB{\V{\$capbarney}_=_\S{}\"\2u\2L\$bigbarney\"\SE{};\C{}_\V{\#} or \"\2u\$barney\"}}
\CE{}\L{\LB{\K{print}_\S{}\"\$barney_\$capbarney_\$bigbarney\2n\"\SE{};}}
\L{\LB{\C{}\V{\#} prints barney Barney BARNEY\<newline\>}}
\CE{}\endlgrinde\LGend
