my $text = "123 '456' 789";
my( undef, $post, $pre ) = extract_delimited( $text, qr/'/, qr/[^']*/ );
$text = ($pre || '') . $post;