my $html =<<HTML;
&lt;html&gt;This is $crap that the $client told me to $spit out.&lt;/html&gt;
HTML

##</code><code>##

$html1 = <<DATA;
blah blah $blah
DATA
$var = 'she is '.($some_cond) ? "so ugly" : "so phat";
$html2 = qq|This is your Mamma: $var|;
$final = $html1.$html2.$html3;

##</code><code>##

package HackedBind;
 
sub TIESCALAR {
  my ($class, $func_ref) = @_;
  $class = $func_ref;
  return bless \$class;
}
 
sub FETCH {
  my $self = shift;
  return &{$$self};
}
1;                      

##</code><code>##

use CGI;
use POSIX;
$cgi = new CGI;

require HackedBind;
tie $clients, 'HackedBind', \&clients;
tie $coders, 'HackedBind', \&coders;
tie $timestamp, 'HackedBind', 
      \&{return strftime('MM-DD-YY',localtime(time));};

sub clients { return ((scalar @$cgi->param('clients') > 1) ? 
                 join(",", $cgi->param('clients')) : $cgi->param('clients')); }
sub coders { return  (scalar @$cgi->param('clients'))*2; }

#now tell your client to ignore everything above and edit
#below for changes:
$data = <<DATA;
The Time is $timestamp.

Our clients are $clients.

We have assigned $coders coders to the project.
DATA