Select Code to Download

s{
(?<=    \{name_a    )
...
    )+
(?<=    \}  )
}< eaten >gx;

s/
\{name_a
...
    my %fun = $_[0] =~ m/([^=\s]+) =  ("[^"]*")/gx;
    return join ' ', map { "$_=$fun{$_}" } grep /param_[xy]/, keys %fu
+n;
}