my $endquote = 'PASS';
my $str = "NOTICE AUTH :*** Ident broken or disabled, to continue to connect you must type /QUOTE PASS 16934";
print $str  =~ /^$endquote(.*?)/;