.#��# 156( perlxtra� ' require��# 1805 Perl_Continued_Offset! 2� / custom_variable&�# 185 ' pod_beg+$ =pod�' pod_beg&�# 186 ' pod_too+% =head�' pod_too&�# 187 ' pod_end+$ =cut�' pod_end�# 190$ perl�" $1��# 191 " $1� ( keymap_p.� " $1� + make_keymap
/b��# 192( Win_Keys� * is_defined.��# 193) perl_help# ^C? " $1� ) definekey��# 194* perl_check# ^Cc " $1� ) definekey��# 195) perl_exec# ^Ce " $1� ) definekey��# 196) perl_info# ^Ci " $1� ) definekey��# 1972 perl_indent_region# ^C	 " $1� ) defi
nekey��# 198( perltidy$ ^C^T " $1� ) definekey/b��# 201+ indent_line! 	 " $1� ) definekey��# 202. perl_beg_chunk# ^A " $1� ) definekey��# 203. perl_end_chunk# ^E " $1� ) definekey��# 204/ perl_mark_chunk# ^H " $1� ) definekey��# 205/ perl_ne
xt_chunk# ^N " $1� ) definekey��# 206/ perl_prev_chunk# ^P " $1� ) definekey��# 2072 perl_mark_matching# ^M " $1� ) definekey��# 208( perltidy# ^T " $1� ) definekey��# 2095 perl_format_paragraph" q " $1� ) definekey��# 2102 newline_and_inde
nt$" \r " $1� ) definekey��# 2142 perl_indent_region" 	 " $1� ) definekey�# 217$ perl�" $1��# 218 " $1� 3 create_syntax_table��# 219! #  " 37 " $1� - define_syntax��# 220 ' pod_beg ' pod_end" 37 " $1� - define_syntax��# 221# ([{# )]}" 40 " $1� 
- define_syntax��# 222" 39" 34 " $1� - define_syntax��# 223" 34" 34 " $1� - define_syntax��# 224" 92" 92 " $1� - define_syntax��# 225- $%0-9@A-Z_a-z# 119 " $1� - define_syntax��# 226. -+.0-9_xa-fA-F" 48 " $1� - define_syntax��# 227% ,.:;?" 44 
" $1� - define_syntax��# 228- !&*+-/<=>`^|~" 43 " $1� - define_syntax��# 229 " $1" 16# 128J� 0 set_syntax_flags��# 281 " $1�# 2826 doiflcmynoqqqrqwqxtruc�# 283! 2��# 281 / define_keywordsP��# 284 " $1�# 285b abschrcosdieeofexpforhexintlogmapoctordo
urpopposrefsinsubtieusevec�# 286! 3��# 284 / define_keywordsP��# 287 " $1�# 288@!bindcarpchopdumpeachelseevalexecexitforkgetcglobgotogrepjoinkeyskilllastlinklocknextopenpackpipepushrandreadrecvredoseeksendsizesortsqrtstattelltiedtimewaitwarn�# 289! 4��
# 287 / define_keywordsP��# 290 " $1�# 291Y!alarmatan2blesschdirchmodchompchownclosecroakcryptelsiffcntlflagsflockindexioctllocallstatmkdirorderprintresetrmdirsemopshiftsleepsplitsrandstudytimesumaskundefuntieuntilutimewhilewrite�# 292! 5��# 290 / defin
e_keywordsP��# 293 " $1�# 294l!acceptcallerchrootdeleteexistsfilenoformatgmtimeimportlengthlistenmsgctlmsggetmsgrcvmsgsndprintfrenamereturnrindexscalarselectsemctlsemgetshmctlshmgetsocketsplicesubstrsystemunlessunlinkunpackvaluesvector�# 295! 6��# 293 /
 define_keywordsP��# 296 " $1�# 297V!binmodeconfessconnectdefinedforeachgetpgrpgetppidlcfirstopendirpackagereaddirrequirereverseseekdirsetpgrpshmreadsprintfsymlinksyscallsysopensysreadsysseektelldirucfirstunshiftwaitpid�# 298! 7��# 296 / define_keywords
P��# 299 " $1�# 300H!closedircontinueendgrentendpwentformlinegetgrentgetgrgidgetgrnamgetlogingetpwentgetpwnamgetpwuidreadlinereadlinkreadpipesetgrentsetpwentshmwriteshutdownsyswritetruncate�# 301! 8��# 299 / define_keywordsP��# 302 " $1�# 303q endneten
tgetnetentlocaltimeprecisionprototypequotemetarewinddirsetnetentwantarray�# 304! 9��# 302 / define_keywordsP��# 305 " $1�# 306z endhostentendserventgethostentgetserventgetsockoptsethostentsetserventsetsockoptsocketpair�# 307" 10��# 305 / define_keyword
sP��# 308 " $1�# 309m endprotoentgetpeernamegetprioritygetprotoentgetsocknamesetprioritysetprotoent�# 310" 11��# 308 / define_keywordsP��# 311 " $1�# 3128 getnetbyaddrgetnetbyname�# 313" 12��# 311 / define_keywordsP��# 314 " $1�# 315T gethostbyaddrge
thostbynamegetservbynamegetservbyport�# 316" 13��# 314 / define_keywordsP��# 317 " $1�# 318. getprotobyname�# 319" 14��# 317 / define_keywordsP��# 320 " $1�# 3210 getprotobynumber�# 322" 16��# 320 / define_keywordsP��# 326 " $1. eqgegtleltneor! 2!
 1� 1 define_keywords_nP��# 327 " $1, andcmpnotxor! 3! 1� 1 define_keywords_nP,.�# 335 ( pop_spot/o�# 337 ) push_spot*�# 338 # ptp+ . parse_to_point�# ptp�# 341 # bol��# 342" 61� / looking_at_char.�# 343 * go_right_1�# 344 * _get_point��# 345# a-z� 
* skip_chars�# 346 * _get_point:." -3w/c/c*�# 349 $ here+ ) what_line�$ here��# 353' ^=[a-z]� * re_bsearch.��# 354 ' pod_end� + bol_fsearch/.�# 355 $ here ) what_line=/6.�# 356" -3w/c�# 359 # ptp.�# 360 ) goto_spot�# 361 . bol_skip_white��# 362" 35� /
 looking_at_char." -2w/c/b�# 365 # ptpw�# 332�3 perl_parse_to_point&�# 369 ) delimiter+- 	 $%@([{:?}])�) delimiter,*�# 378 " cs+ + CASE_SEARCH�" cs* " rc+! 0�" rc.�# 381 ( pop_spot�# 382 " cs�+ CASE_SEARCH/o�# 385! 1�+ CASE_SEARCH�# 386 ) push_spot��
# 388 & _NARGS� * __pop_args�.*�# 389 % token+"% value�% token*�# 390 # len+� % token� & strlen�# len�# 392 ) goto_spot��# 393 % token� * looking_at.��# 394 # len� ( go_right�# 395 * _get_point��# 396 ) delimiter� * skip_chars�# 397 * _get_point: $ eolpD�
" rc�# 398 " rc.v/c/c/��# 402 " rcw�# 376�/ perl_looking_at,*�# 412 " cs+ + CASE_SEARCH�" cs* " rc+! 0�" rc.�# 415 ( pop_spot�# 416 " cs�+ CASE_SEARCH/o�# 419! 1�+ CASE_SEARCH�# 420 ) push_spot*�# 422 ! n+ * _get_point�! n��# 423 & _NARGS� * __pop_arg
s�.*�# 424 % token+"% value�% token*�# 425 # len+� % token� & strlen�# len�# 427 ! n # len=.u/c�# 429 ) goto_spot��# 430 # len� ' go_left��# 431 % token� * looking_at.�# 432 * _get_point��# 433 ) delimiter� + bskip_chars�# 434 * _get_point: $ bolpD�" rc�#
 435 " rc.v/c/c/��# 439 " rcw�# 410�0 perl_blooking_at,*�# 442 % endch+�E find_matching_brace_ignore_fold_marks,*�# 443 % endch+*�# 445 ! m+ 0 create_user_mark�! m�# 446! 1� % endch� 7 find_matching_delimiterB.�# 447! 0w/c��# 448# #{{� + blooking_at
�$ # {{� + blooking_atD.�# 449! 1w/b��# 450! 2� ' go_left�# 451! 1� % endch� E find_matching_brace_ignore_fold_marksA.�# 452! 1w/c��# 454 ! m� . goto_user_mark�# 455! 0w�# 443�E find_matching_brace_ignore_fold_marks,*�# 467 " ch+*�# 468 # col+! 1�
# col*�# 469 ) indent_ok+! 0�) indent_ok*�# 470 , extra_indent+ + Perl_Indent�, extra_indent*�# 471 # ptp+�# 473 ) push_spot�# 474 # bol�# 475 ) what_char�" ch�# 476 3 perl_parse_to_point�# ptp�# 484 # ptp" -3A # ptp" -2A " ch" 35ACD.�# 485 ( eol_trim
�# 486 ( pop_spotw/c�# 490 * skip_white�# 491 ) what_char�" ch.�# 495 ) goto_spot�# 496 . bol_skip_white�# 497 + what_column # colB.�# 498 ( bol_trim�# 499�# col��# 500 # col� * whitespace/c�# 502 ) goto_spot�# 503 + bskip_white�# 504 $ bolp�# 505 ( pop_s
pot.�# 506 . bol_skip_white/c/o*�# 509 " rc % endch+" 41�% endch��# 510 % endch� 7 find_matching_delimiter�" rc�# 512 " rc.�# 513 ) goto_spot # bol�# 514" 93�% endch��# 515 % endch� 7 find_matching_delimiter�" rc/b�# 517 " rc! 1A.�# 519 . bol_skip_whit
e�# 520 + what_column�# col�# 541 " ch % endchB. , extra_indent�# col/c�# 542�) indent_ok/c�# 545 ) goto_spot # bol�# 550# 125�% endch�# 551 " ch# 123A.�) indent_ok/c��# 552 % endch� E find_matching_brace_ignore_fold_marks.�# 554 + Perl_Indent�, extra_i
ndent�# 573 + what_column�# col�# 574 + bskip_white�# 575 ) push_spot�# 576! 0�" rc��# 578" 40� * bfind_char.�" 91� * bfind_char/7.�# 579 ) goto_spot��# 580" 41� 7 find_matching_delimiter�" rc�# 581 " rc.�# 582 ) goto_spot��# 583" 93� 7 find_matching
_delimiter�" rc/b/c�# 586 ( pop_spot�# 588 " rc! 1A.�# 589�) indent_ok/.�# 593 * _get_point��# 594$ +<=>� + bskip_chars�# 595 * _get_point:.�# 596�) indent_ok/.��# 598% bless� 0 perl_blooking_at.�# 599�) indent_ok/c/d�# 605 . bol_skip_white�# 606 + wha
t_column�# col/d�# 609 " ch % endchB.�# 610 , extra_indent�# col/.�# 612�) indent_ok/d/c�# 616 ) indent_ok.w/c�# 619 ) goto_spot.�# 624 $ up_1.�# 625 # bolv/b�# 628 . bol_skip_white�# 629 $ eolp. * go_right_1/b/.�# 630 3 perl_parse_to_point" -2>/k�# 631
 # eol.�# 634 3 perl_parse_to_point�# ptp # ptp" -2>/.��# 635! 1� $ left.v/b/f�# 640 + bskip_white�# 641" 59�" ch�# 642 $ bolp.�# 643 ) go_left_1�# 644 3 perl_parse_to_point" -2@. ) what_char�" ch/c/b�# 649 5 Perl_Continued_Offset�, extra_indent��# 6
50$ ;({}� " ch� $ char� ) is_substrN.�# 651 , extra_indent�# col/.�# 653# 125 " chA.��# 655 " ch� 7 find_matching_delimiterP�# 656 + bskip_white��# 658$ grep# map$ sort� 0 perl_blooking_at.�# 659 . bol_skip_white�# 660 + what_column�# col/.�# 664 ) g
oto_spot�# 665 . bol_skip_white��# 667$ grep# map$ sort�# 668# and" or�# 669" &&" ||�# 670! ?! :��# 667 / perl_looking_at.�# 671 , extra_indent�# col/c/d/c/d�# 465�0 perl_indent_line,�# 686 % markp.�# 687 0 perl_indent_linew/b��# 691! 1� , chec
k_region�# 692 & narrow*�# 694 $ line+! 0�$ line*�# 695 & nlines+ ) what_line�& nlines�# 696 # bob�# 697 % widen*�# 699 " cs+ + CASE_SEARCH�" cs! 1�+ CASE_SEARCH.�# 700 ( pop_spot " cs�+ CASE_SEARCH/n.�# 703�$ line�# 704 ( eol_trim # bol��# 706 ' pod_be
g� * looking_at.� ' pod_too� * looking_at/7..�# 707 & down_1/.�# 708�$ line��# 709 ' pod_end� * looking_at.v/c�# 710 ( eol_trim/fu/c�# 714 $ eolp.u/c�# 715 * skip_white��# 718" 35� / looking_at_char.�# 719 + indent_line/.�# 722 + indent_line���# 723" <
<� % ffind� % right.�# 724 ) push_mark��# 725' A-Z_a-z� * skip_chars*�# 726 $ junk+# 	 ;�$ junk*�# 727 $ here+ ) bufsubstr�$ here*�# 728 # len+� $ here� & strlen�# len��# 729 $ junk� * skip_chars�# 730 # len $ eolp�" 35� / looking_at_charDC..�# 731 & d
own_1/.�# 732�$ line��# 733 $ here� * looking_at.��# 734 # len� ( go_right��# 735 $ junk� * skip_chars�# 736 $ eolp�" 35� / looking_at_charD.v/c/c�# 738 ( eol_trim/f/.�# 741 + indent_line/d/c/d��# 7456 processed %d/%d lines. $ line & nlines� ( vmessage
/.�# 746 & down_1 $ line & nlines=C/k�# 748 3 EXECUTE_ERROR_BLOCK�# 684�2 perl_indent_region,�# 760 ) push_spot�# 761 # bob ) push_mark # eob�# 762 2 perl_indent_region�# 763 ( pop_spot�# 758�2 perl_indent_buffer,*�# 771 & dirfun+�# 773 ) push_mark.�# 
774 & dirfunM/.�# 776 . bol_skip_white��# 777 ' pod_beg� * looking_at�# sub� * looking_atD.�# 778 * pop_mark_0w/c/f�# 782 * pop_mark_1�# 771�- perl_pn_chunk,��# 785}$ up_1� - perl_pn_chunky/ perl_prev_chunk,��# 786}& down_1� - perl_pn_chunky/ perl_nex
t_chunk,*�# 799 # beg+ ' pod_beg�# beg*�# 800 # ptp+ 3 perl_parse_to_point�# ptp�# 801 # ptp" -3?.# sub�# beg/c�# 802 # eol��# 803 # beg� + bol_bsearch.�( Top of ' # beg9, ' not found.9� % error/b�# 797y. perl_beg_chunk,�# 815 . perl_beg_chunk*�# 81
6 # ptp+ 3 perl_parse_to_point�# ptp�# 817 # ptp" -3?.��# 818# 123� , fsearch_char.�* goto_match� $ call/c/.�# 820 # bol��# 821 ' pod_end� + bol_fsearch.� ' pod_end*  not found9� % error/b/d�# 813y. perl_end_chunk,�# 834 . perl_beg_chunk�# 835 1 push
_visible_mark�# 836 . perl_end_chunk�# 837 # eol�# 838 7 exchange_point_and_mark�# 832y/ perl_mark_chunk,*�# 851 # beg+# ([{�# beg* # end+# )]}�# end*�# 852 " ch+ ) what_char�" ch.�# 855 * pop_mark_1/n.*�# 859 " fn+�" fn�# 860 , set_mark_cmd�# 861! 1�
 " ch� 7 find_matching_delimiterB.��# 862< matching delimiter not found� % error/c�# 863 " fnM�# 864 7 exchange_point_and_markw/p��# 868 # beg� " ch� $ char� ) is_substr.��# 869}* go_right_1� - X_USER_BLOCK0/.��# 870 # end� " ch� $ char� ) is_substr.��# 
871}/ skip_word_chars� - X_USER_BLOCK0/c/d�# 877 + bskip_white�# 878 * _get_point��# 879 # beg� + bskip_chars�# 880 * _get_point:.�# 881 ) what_char�" ch��# 882}* go_right_1� - X_USER_BLOCK0/c�# 886 * skip_white�# 887 * _get_point��# 888 # end� * skip_cha
rs�# 889 * _get_point:.�# 890 ) go_left_1�# 891 ) what_char�" ch��# 892}/ skip_word_chars� - X_USER_BLOCK0/c�# 849y2 perl_mark_matching,*�# 896 $ menu+��# 898 $ menu0 &Top of Function. perl_beg_chunk� 0 menu_append_item��# 899 $ menu0 &End of Function
. perl_end_chunk� 0 menu_append_item��# 900 $ menu. &Mark Function/ perl_mark_chunk� 0 menu_append_item��# 901 $ menu. &Format Buffer2 perl_indent_buffer� 0 menu_append_item�# 896�. perl_init_menu&�# 904 0 PerlMode_Comment+" # �0 PerlMode_Comment&�#
 905 3 PerlMode_CommentLen+! 2�3 PerlMode_CommentLen,�# 913 $ bolp.�# 914 ) push_spot�# 915 . bol_skip_white��# 916" 35� / looking_at_char.*�# 917 # col+ + what_column�# col�# 918�# col�# 919 ( pop_spot�# 920 ' newline��# 921 # col� - insert_spaces��# 
922 0 PerlMode_Comment� & insertw/c�# 925 ( pop_spot/b�# 927 ' newline�# 928 + indent_line�# 911y7 perl_newline_and_indent&�# 932 3 Perlmode_Fill_Chars+  �3 Perlmode_Fill_Chars,��# 942 3 Perlmode_Fill_Chars� & strlen.! 0w/c�# 943 ) push_spot�# 944 . bo
l_skip_white��# 945 0 PerlMode_Comment� * looking_at.��# 946 3 PerlMode_CommentLen� ( go_right�# 947 * skip_white/.��# 948" ##� * looking_at.�# 949 # eol/c/d�# 952 $ eolp" -2 . parse_to_pointBD�# 953 ( pop_spot�# 940y2 perl_paragraph_sep,*�# 965 % dwra
p+�# 967  �3 Perlmode_Fill_Chars�# 968 2 perl_paragraph_sep.w/c�# 969 ) push_spot.�# 970 2 perl_paragraph_sepN/.�# 971 $ up_1.v/b/f�# 973 2 perl_paragraph_sep. ) go_down_1/c�# 974 ) push_mark�# 975 ) goto_spot.�# 977 2 perl_paragraph_sepN/.�# 978 & down
_1.v/b/f�# 980 2 perl_paragraph_sep. ' go_up_1/c�# 981 & narrow�# 982 ) goto_spot�# 984 # bol�# 985 ) push_mark�# 986 * skip_white��# 987 0 PerlMode_Comment� * looking_at.� 3 PerlMode_CommentLen� ( go_right/c�# 989 ) bufsubstr�3 Perlmode_Fill_Chars�# 990
 + what_column�% dwrap�# 991 # bob.�# 993 ( bol_trim��# 994 0 PerlMode_Comment� * looking_at.� 3 PerlMode_CommentLen� $ deln/c/.�# 995 & down_1/k�# 996 % dwrap�$ WRAP��# 9970 format_paragraph� $ call�# 998 % dwrap�$ WRAP�# 999 # bob.��$ 1001 3 Perlmode_
Fill_Chars� & insert/.�$ 1002 & down_1/k�$ 1004  �3 Perlmode_Fill_Chars�$ 1005 % widen�$ 1006 ( pop_spot�# 963y5 perl_format_paragraph,*�$ 1057 $ mode+$ perl�$ mode��$ 1059 $ mode! 4� ( set_mode��$ 1060 $ mode� * use_keymap��$ 1061 $ mode� 0 use_synt
ax_table�$ 1069 - push_spot_bob*�$ 1070 # beg+ ' pod_beg�# beg��$ 1071 # beg� + bol_fsearchN� ' pod_too� + bol_fsearchC.�$ 1072 ' pod_too�# beg/c��$ 1073 # beg ' pod_end" 37 $ mode� - define_syntax�$ 1074 ( pop_spot��$ 1076' par_sep2 perl_paragraph_sep
� / set_buffer_hook��$ 1077+ indent_hook}0 perl_indent_line� / set_buffer_hook��$ 1081 $ mode) fold_info$. =pod\r=cut\r\r� 2 mode_set_mode_info��$ 1083 $ mode. init_mode_menu}. perl_init_menu� 2 mode_set_mode_info��$ 1084. perl_mode_hook� . run_mode_h
ooks�$ 1055y) perl_mode