DB<3> l 1-6
1       #!/bin/perl -w
2:      use strict;
3==>    $_ = shift // '';  # line 3
4:      s{a([bc])}         # 4
5        {d$1}g;           # 5
6:      print;             # 6
  DB<4>