Help for this page

Select Code to Download


  1. or download this
    #! /usr/bin/perl -l
    
    my $url = "http://example.com/user/1234/" ;
    $url =~ s![^/]+(?=/$)!_bla_! ;
    print "URL = $url" ;
    
  2. or download this
    s![^/]+(?=/)$!_bla_!