if ($string =~ /re/) { my ($a, $b, $c) = trim_func ($1, $2, $3); }