fix: Escape slash for perl

Author: marverix

gah

@@ -679,7 +679,7 @@ function main() {
 			throw_error 1 "Please provide either repo in format 'owner/repo_name' or known alias.\n$HELP_STRING"
 
 		elif [[ "$2" == *"/"* ]]; then
-			if regex_match "$2" "^[a-zA-Z0-9_-]+/[a-zA-Z0-9_-]+$"; then
+			if regex_match "$2" "^[a-zA-Z0-9_-]+\/[a-zA-Z0-9_-]+$"; then
 				repo="$2"
 			else
 				throw_error 2 "Given string '$2' is not in format 'owner/repo_name'.\n$HELP_STRING"