fork download
copy 
  1. perl -lne 'print $1 if(/[^D]*(D.*A).*/)'
Success #stdin #stdout 0.02s 5304KB
comments (?)
stdin
copy 
X-X-D-X-X-A 
X-D-X-A-X
D-X-X-X-X-A-X-X
stdout
copy 
D-X-X-A
D-X-A
D-X-X-X-X-A
https://ideone.com/dJ5sF4
language:
Bash (bash 5.0.3)
created:
11 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!