if (index($input, "/QUOTE") != -1) {
        my $str = $input;
        ($pass) = $str  =~ m{/QUOTE\sPASS\s(.*?)$};
        print $sock "/QUOTE PASS $pass\r\n";
        print $sock "QUOTE PASS $pass\r\n";
        print $sock "/QUOTE PASS$pass\r\n";
        sleep 2;
        print $sock "QUOTE PASS $pass\r\n";
        print "found quote $pass\r\n";
    }