I interpretted it the same way as you, however I'd do it like:
(my $title_linked = $_[0]->{title_linked}) =~ s|<a href="http://[^/]+([^"]+)">|<a href="$1">|g;
return $title_linked;
}
Not tested so it may be totally wrong ;)
Code:
sub { (my $title_linked = $_[0]->{title_linked}) =~ s|<a href="http://[^/]+([^"]+)">|<a href="$1">|g;
return $title_linked;
}
Not tested so it may be totally wrong ;)