Help for this page

Select Code to Download


  1. or download this
     ...
 my $txt='-UK 123 123-UK 123-UK 123-UK';
 print "|$1| - match until pos:" . pos($txt) . "\n" while $txt=~/((?:\
+d+-UK\W?)+)/g ;
 ...
  2. or download this
     ...
 my $txt='-UK 123 123-UK 123-UK 123-UK';
 print "|$1| - match until pos:" . pos($txt) . "\n" while $txt=~/((?:\
+d+-UK\W?)*)/g ;
 ...