myfunc $x eq "foo;text";foobar';';$x++;

# matching first Perl statement..
# should return:
#  myfunc $x eq "foo;text";
#
# not:
#  myfunc $x eq "foo;";foobar';
# 
# or something else...