if( $var =~ m/(foo)/ ){
        say $1;
}else{
        say "no match found";
}