cutfold

   1 #!/usr/bin/env perl
   2
   3 # cutfold
   4 # File ID: d8de5ac8-5d37-11df-a137-90e6ba3022ac
   5 # Inserts “CUT” marks with Vim fold before and after stdin.
   6 # Select text in visual line mode and filter the block through this script.
   7
   8 use strict;
   9 use warnings;
  10
  11 $| = 1;
  12
  13 my $Line = <STDIN>;
  14 my ($Indent, $Title) = ("", "CUT");
  15
  16 defined($ARGV[0]) && ($Title = join(" ", @ARGV));
  17 $Line =~ /^(\s+)/ && ($Indent = $1);
  18 print("======== $Title \x7B\x7B\x7B ========\n$Line");
  19
  20 while (<STDIN>) {
  21         print($_);
  22 }
  23
  24 print("======== \x7D\x7D\x7D $Title ========\n");