if ( $s =~ /($m2)/ ) {
        goto PERMUTE;
        say $1;
        sleep 1;
    }