s{\Qsubmit_thingamabob($handle,$not_today,}{[ }g;
s{\Q);}{ ],}g;

##</code><code>##

my @repeaters = ( $handle, $not_today, $thingie );
submit_thingamabob( @repeaters, @$_ )
  for
  [ "Foo!",  234 ],
  [ "Frob!", 23 ],
  [ "Forb!", 54 ],
  [ "ooF!",  11 ],
  [ "broF!", fakenum ],
  [ "Frap!", 458 ],
  ;;;;;

##</code><code>##

my $curry = sub {
  submit_thingamabob($handle, $not_today, $thingie, @_ );
};

    $curry->( "Foo!",  234 );
    $curry->( "Frob!", 23 );
    $curry->( "Forb!", 54 );
    $curry->( "ooF!",  11 );
    $curry->( "broF!", fakenum );
    $curry->( "Frap!", 458 );