my $foo="regexp";
my @matches = $foo =~ /(re)ge(xp)/;

#and

my $regex=qr{(re)ge(xp)};
my @matches = $foo =~ $regex;