There are probably modules, but backticks (or qx/ / to capture the output) and split(/\./, $line ) or a regex would do it. Check perldoc -f split, perldoc -f substr, and perldoc perlop for qx, and perldoc perlretut (sorry, but I don't post code until I see what people have tried.)

When you say "I have just made a CLI" I guess you don't mean you wrote the original program? If you did or have access to it, why not fix it there?