#!/usr/bin/perl -w
use strict;  $|=1;

my $formbuf=<<'OKAY';
This is a | test template ||| you like?

OKAY

my @parts = &GetMultipartTemplate($formbuf);
print "$_. ",length($parts[$_])," $parts[$_]\n"
  for (0..$#parts); # test output

sub GetMultipartTemplate {

    # Returns pipe-separated parts of a form
    # Usage: @parts = GetMultipartTemplate($formbuf);

    my @t = split(/\|/, shift);
    return @t; # yes returning a reference is better..

}