sub somefunction
{
  while (expression)
  {
    .
    .
    $concatstring = &concat ($string1, $string2, $string3);
    print “$concatstring\n”;
  }
}

sub concat
{
}

##</code><code>##

longstring        longstring           X
X                 X                    longstring
X                 longstring           longstring