#!/usr/bin/perl
my $org = "";
$Ora_code = 'Failed tthe following error: ORA-12505, TNS:listener does not currently know of SID given in connect descriptor';
print $Ora_code;
if ( my ($out) = $Ora_code =~ /ORA\-\d{5}/)
      {
        print "inside\n";
       print $out;
     }
else {
print "(no match)\n";
}