Win8 Strawberry 5.8.9.5 (32) Wed 09/14/2022 0:21:27 C:\@Work\Perl\monks >perl use strict; use warnings; # use Data::Dump qw(dd); # for debug my ($rx_all_units) = map qr{ (?$1\n}xg; print $text; ^Z Visit units 1101 or 2202 , call us at 555-555-2202 and call before 13 Aug, 2202