DB<11> m/.*(.|\n)/s,print "<$1>" for "123","abc\n","abc\nd" <3>< > DB<12> m/.*(.)/s,print "<$1>" for "123","abc\n","abc\nd" <3>< > DB<13>