1use Test::Base; 2 3__DATA__ 4=== 5--- text 6one fish 7two fish 8red fish 9blue fish 10--- re regexp= 11one fish 12two fish 13red fish 14blue fish 15 16=== 17--- text 18One Fish 19Two Fish 20Red Fish 21Blue Fish 22--- re regexp=im 23^one fish 24^two fish 25^red fish 26^blue fish 27 28=== 29--- text 30One Fish 31Two Fish 32Red Fish 33Blue Fish 34--- re regexp 35\A^one\ fish\n 36^two\ fish. 37^red\ fish. 38^blue\ fish\n\z 39 40