Select Code to Download

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

let b:current_syntax = "perl"

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

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

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

:runtime! syntax/2html.vim

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

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

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

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

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