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> #### $ cat db_tst.pl #!/bin/perl -w use strict; $_ = shift // ''; # line 3 s{a([bc])} # 4 {d$1}g; # 5 print; # 6