> perl 

print "x";

=bala bala blaa 
asas

=cut

print "x"