my $foo = <>;
if ($foo eq "bar") {

} 

##</code><code>##

[/home/xorl]$ ./myscript.pl | less