fork download
copy 
  1. #!/usr/bin/perl
  2. use strict;
  3. use warnings;
  4. my $address = 'http://mail.google.com/belmark';
  5.  
  6. $address =~ s/(\w+:\/\/)(.*.com)(\/\w+)/$1$2\/dev\/public_html/ if ($address =~ /.*\/belmark/);
  7.  
  8. print "Address is: $address";
Success #stdin #stdout 0s 3740KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Address is: http://mail.google.com/dev/public_html
https://ideone.com/GOiUVH
language:
Perl (perl 5.28.1)
created:
12 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!