if (my @matches = $string =~ /re/) {
    my ($a, $b, $c) = trim_func(@matches);
}