use strict;
use warnings;

my $string = q{123 123 345};
if ( $string =~ 
     s{^(\d+\s+)(?:\d+)(\s+\d+)}{$1something$2} )
{
    print qq{Succeeded\n$string\n};
}
else
{
    print qq{Failed\n$string\n};
}