Select Code to Download

Select or download this

/usr/local/share/vim/vim60/syntax/perl.vim

Select or download this
```
let b:current_syntax = "perl"
```

Select or download this

syn include @Sql <sfile>:p:h/sql.vim
syn region perlSQL start="qq{" end="}" contains=@Sql keepend
syn region perlSQL start="qq\[" end="\]" contains=@Sql keepend
syn region perlSQL start="<<SQL" end="^SQL" contains=@Sql keepend

Select or download this

my $sql1 = qq{ SELECT fieldname 
    FROM $tab_array[0]
...
    FROM $tab_hash{$current}
    WHERE otherfield = ( ? )
];

Select or download this

my $sign = qq {DO NOT SELECT FROM MY TABLE !}

Select or download this
```
:runtime! syntax/2html.vim
```

Select or download this

# ./configure --enable-perlinterp 
# make
# make install

Select or download this

:perl $count = 0
:perldo $count += split /[;_<> ]/, $_ 
:perl VIM::Msg($count)

Select or download this

:perl @lines = sort {$a <=> $b} $curbuf->Get(1 .. 15)
:perl $curbuf->Set(1, @lines)

Select or download this

:perl $curbuf->Set(1, sort {$a <=> $b} $curbuf->Get(1 .. 15))

Select or download this

:10,30perldo s/\b(:?Monks|advocates)\b/PerlMonks/
:40,45perldo tr/A-F0-9//cd