Help for this page
my $string = "Example 1: 413-577-1234 Example 2: 981-413-777-8888 ... @matches = grep { index($_, "\n") == -1 } @matches; say "Match: '$_'" for @matches; }
Match: '413-577-1234' Match: '413.233.2343' ... Match: '401 311 7898' Match: '1 (413) 555-2378' Match: '4135552378'