my $filecontent = "{type line} {series {{1 {{x_data {1 2 3 4 5}} {y";

my ( $xdata ) = $filecontent =~ / x_data .*? ({.*?})/xms;
my @x;
while ($xdata =~ /(\d+)/g) {
   push @x, $1;
}