use strict;
use warnings;

use Text::Balanced qw( extract_delimited );

# wenn $text = "'467'123";   funktioniert es
my $text = "567'456'123"; # so nicht
my @extracted = extract_delimited($text, "'", '');
print $extracted[0], "\n", $extracted[1], "\n";