Help for this page

Select Code to Download


  1. or download this
    use LWP::UserAgent;
    
  2. or download this
    sub Jammer_hoor {
    
  3. or download this
    if ( $nummer !~ m/\b\d{3}-\d{7}\b/ ) {
    
  4. or download this
    if ( $info !~ m/Naam:/g ) {
    
  5. or download this
    $info =~ s/\s+/ /gi;
    
  6. or download this
    #filter out all the adds and links
    $info =~ s/$nummer//gi;
    ...
    $info =~ s/Plaats: /\n/g;
    $info =~ s/Postcode: /\n/g;
    $info =~ s/Fax: /\nfax: /g;
    
  7. or download this
    for ($info) {
        #filter out all the adds and links
    ...
        s/<.*?>//g;
        ...
    }
    
  8. or download this
    print "$info";