Question

I have what I thought would be an easy problem to solve but I am not able to find the answer to this.

How can I find and replace the last occurrence of a character in a string?

I have a string: GE1/0/1 and I would like it to be: GE1/0:1 <- This can be variable length so no substrings please.

Clarification:
I am looking to replace the last / with a : no matter what comes before or after it.

Answer 1

use strict;
use warnings;
my $a = 'GE1/0/1';
(my $b = $a) =~ s{(.*)/}{$1:}xms;
print "$b\n";

I use the greedy behaviour of .*