Question

I have a string like “ab.cde.fg.hi”, and I want to split it into two strings.

1. “ab.cde.fg”
2. “.hi”

How to do so? I got some code written that will get me the 2nd string but how do I retrieve the remaining?

$mystring = "ab.cde.fg";
$mystring =~ m/.*(\..+)/;
print "$1\n";

Answer 1

my ($first, $second) = $string =~ /(.*)(\..*)/;

You can also use split:

my ($first, $second) = split /(?=\.[^.]+$)/, $string;