Help for this page

Select Code to Download


  1. or download this
    687551.pl syntax OK
perl  687551.pl
||
...
||
|123-UK 123-UK 123-UK|
||
  2. or download this
    my $txt = '-UK 123 123-UK 123-UK 123-UK abc-oops!';
print "|$1|\n" while $txt =~ /((?:\d+-UK\s))/g;
  3. or download this
    perl  687551.pl
|123-UK |
|123-UK |
|123-UK |