>perl -e "@arr = qw{ app Oracle EPDMCA Oracle EPZXC Oracle };
  print (map {$_ eq 'Oracle'? ($x):($x=$_)[2]} reverse @arr)"