>perl -wMstrict -le
"my $str = 'NOTICE AUTH :*** Bla bla must type /QUOTE PASS 16934';
 my $pass;
 ($pass) = $str =~ m{/QUOTE\sPASS\s(.*?)$};
 print qq{'$pass'};
"
'16934'