sub bar {
   my $callback = shift;
   $callback->();
}
bar(sub { s/(\w+)/\u$1/g; });