#!/usr/bin/perl -w
# /~alakaboo/cgi-perl/multi.pl

use strict;
use CGI;

my $q = new CGI;
my %v = $q->Vars();

print $q->header('text/plain');

{
    local $" = "\n";

    my @tmp = split /\0/, $v{ar};
    print "@tmp";
}