>>301-302
#!/usr/local/bin/perl
my $A = 'This';
my $B = 'pen';
{
　　local $/ = undef;
　　my $data = <DATA>;
　　print eval "qq/$data/"; # デリミタは適宜変更
}
__DATA__
$A is a $B.