encap

   1 #!/usr/bin/env perl
   2
   3 #=======================================================================
   4 # encap
   5 # File ID: d4e109b0-5d38-11df-ab05-90e6ba3022ac
   6 # Encapsulate stdin in XML tags.
   7 #=======================================================================
   8
   9 use strict;
  10 use warnings;
  11
  12 defined($ARGV[0]) || ($ARGV[0] = "l");
  13 for my $Elem (@ARGV) {
  14     print("<$Elem>");
  15 }
  16 print(join("", <STDIN>));
  17 for my $Elem (reverse @ARGV) {
  18     print("</$Elem>");
  19 }