Select Code to Download

DB<3> l 1-6
1       #!/bin/perl -w
...
  DB<4>

$ cat db_tst.pl
#!/bin/perl -w
...
s{a([bc])}         # 4
 {d$1}g;           # 5
print;             # 6