$ perl -le '
> $in = q{abcdefg};
> @vals = split m{\.\.}, $in;
> print for @vals;'
abcdefg
$ perl -le '
> $in = q{abc..defg};
> @vals = split m{\.\.}, $in;
> print for @vals;'
abc
defg
$