$foo = "bar";
while(<DATA>) {
	print eval("\"".$_."\"");
}
__DATA__
line 1
$foo 
&localtime()
line 3