fork download
copy 
  1. #!/usr/bin/perl
  2. use strict;
  3. use warnings;
  4.  
  5. while (my $line = readline DATA) {
  6. 	$line =~ s{(XX[0-9]+/)(XX[0-9]+/\1)}{$2}g;
  7. 	print $line;
  8. }
  9.  
  10. __DATA__
  11. M1/XX2/XX1 XX2/XX1/XX2/WCLKB XX2/XX1/XX2/P001
  12. M1/XX4/XX5 XX4/XX5/XX4/WCLKB XX4/XX5/XX4/P001
Success #stdin #stdout 0s 17760KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
M1/XX2/XX1 XX1/XX2/WCLKB XX1/XX2/P001
M1/XX4/XX5 XX5/XX4/WCLKB XX5/XX4/P001
https://ideone.com/imqtB0
language:
Perl (perl 5.28.1)
created:
4 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!