my $foo = 'bar 123 moo cow';

$foo = s/(123)/function($1)/;

sub function
 {
   my $argument = shift;
   $argument = "rab";
   return $argument;
 }