Help for this page

Select Code to Download


  1. or download this
    if( $string =~ m/(?<!\d)(\d{4,5})(?!\d)/ ) {
  print "$1\n";
}
  2. or download this
    my( @found ) = $string =~ m/(?<!\d)(\d{4,5})(?!\d)/g;
  3. or download this
    $string =~ s/(?<!\d)\d{4,5}(?!\d)//g;