Help for this page

Select Code to Download

Select or download this

my $string = "Example 1: 413-577-1234
              Example 2: 981-413-777-8888 
...
  @matches = grep { index($_, "\n") == -1 } @matches;
  say "Match: '$_'" for @matches;
}

Select or download this

Match: '413-577-1234'
Match: '413.233.2343'
...
Match: '401 311 7898'
Match: '1 (413) 555-2378'
Match: '4135552378'