if (m/($regex)/) {
    print $regex;
}