exit if $data =~ /q/i;

##</code><code>##

    exit if $data =~ /^\s*q\s*$/i;