use strict;
my $str = 'android.com/intl/en_us/
android.com/intl/en_in/auto/
android.com/intl/en_us/auto/
android.com/intl/en_us/enterprise
android.com/enterprise/
android.com/work/84
android.com/enterprise/management/zero-touch/
android.com/security-center/
android.com//com.google.android.googlequicksearchbox
android.com/certified/partners/
android.com/
android.com/phones/
android.com/results/
android.com/versions/oreo-8-0/
android.com/filetransfer/
android.com/auto/
android.com/enterprise/
android.com/play-protect/
android.com/one/
android.com/intl/en_us/auto/
developer.android.com/work/index.html
android.com/everyone/
android.com/intl/en_in/auto/
android.com/intl/en_us/9
android.com/history/1
android.com/tv/
android.com/tablets/
android.com/enterprise/
developer.android.com/work/overview.html
android.com/enterprise/device-catalog/
android.com/intl/en_uk/auto/
android.com/switch/
android.com/enterprise/management/
android.com/gms/
android.com/intl/en_us/pay/
android.com/intl/en_us/one/
android.com/work/
android.com/intl/en_in/phones/
android.com/intl/en_uk/phones/
android.com/wear/
android.com/everyone/enabling-opportunity/
android.com/intl/en_us/phones/
android.com/play/
android.com/intl/en_au/phones/
android.com/intl/en_in/tv/
android.com/intl/en_us/tablets/
android.com/enterprise/
android.com/enterprise/management/
androidbusinesspartners.withgoogle.com/android/partners/search
android.com/gms/contact/
android.com/intl/en_in/wear/
android.com/intl/fr_fr/work/
android.com/pay/
android.com/security-center/
android.com/intl/en_ca/auto/
android.com/intl/en_in/wear/lg-watch-urbane-2nd-ed/
android.com/intl/en_uk/
android.com/intl/en_us/tv/
android.com/phones/tips/
android.com/enterprise/
android.com/enterprise/device-catalog/
android.com/enterprise/devices/
android.com/intl/ALL_en/work/
android.com/intl/en_in/
android.com/intl/en_in/results/
android.com/intl/en_in/switch/
android.com/intl/en_in/tv/sony-bravia/
android.com/intl/en_uk/pay/terms/
android.com/intl/en_uk/results/
android.com/intl/en_us/wear/
android.com/intl/it_it/work/
android.com/security-center/monthly-security-updates/
android.com/versions/nougat-7-0/
android.com/enterprise/devices/
android.com/enterprise/devices/
android.com/
android.com/enterprise/management/zero-touch/
androidbusinesspartners.withgoogle.com/android/partners
androidbusinesspartners.withgoogle.com/workpartners/accessdenied
android.com/intl/de_at/
android.com/intl/en_au/
android.com/intl/en_au/play-protect/
android.com/intl/en_au/work/
android.com/intl/en_ca/phones/
android.com/intl/en_in/phones/samsung-galaxy-s7-edge/
android.com/intl/en_uk/pay/
android.com/intl/en_uk/phones/pixel/
android.com/intl/en_us/pay/participating-banks/
android.com/intl/en_us/switch/
android.com/phones/samsung-galaxy-s7-edge/
android.com/filetransfer/
android.com/intl/en_us/
android.com/intl/de_de/security-center/
android.com/intl/en_au/auto/
android.com/intl/en_in/enterprie/
android.com/intl/en_uk/switch/
android.com/intl/en_uk/tv/sharp-aquos/
android.com/intl/en_us/everyone/
android.com/intl/es_es/security-center/
android.com/intl/it_it/tv/xiaomi-mi-box/
android.com/intl/ja_jp/work/
android.com/intl/pl_pl/security-center/
developer.android.com/work/guide.html
android.com/intl/en_uk/enterprise/devices/
android.com/intl/en_in/enterprise/device-collection/
android.com/auto/
android.com/certified/partners/
android.com/enterprise/security/
android.com/intl/en_in/enterprise/devices/
android.com/intl/en_us/auto/
android.com/phones/
android.com/results/
android.com/versions/oreo-8-0/
android.com//com.linkedin.android
android.com/auto/audi/
android.com/auto/ford/
android.com/everyone/research/
android.com/intl/en_au/auto/genesis/
android.com/intl/en_au/pay/
android.com/intl/en_au/results/
android.com/intl/en_au/security-center/
android.com/intl/en_au/tv/
android.com/intl/en_ca/
android.com/intl/en_ca/results/
android.com/intl/en_ca/security-center/
android.com/intl/en_ca/tv/nvidia-shield/
android.com/intl/en_ca/tv/sharp-aquos/
android.com/intl/en_hk/certified/partners/
android.com/intl/en_hk/pay/
android.com/intl/en_in/phones/htc-10/
android.com/intl/en_in/security-center/
android.com/intl/en_nz/phones/
android.com/intl/en_uk/auto/audi/
android.com/intl/en_uk/enterprise/
android.com/intl/en_uk/phones/samsung-galaxy-s7-edge/
android.com/intl/en_uk/tablets/
android.com/intl/en_uk/tv/sony-bravia/
android.com/intl/en_us/play/
android.com/intl/en_us/security-center/
android.com/intl/es-419_mx/security-center/
android.com/intl/es_es/tv/xiaomi-mi-box/
android.com/intl/pl_pl/work/
android.com/intl/ru_ru/security-center/
android.com/intl/ru_ru/work/
android.com/phones/moto-x/
android.com/security-center/publications/
android.com/security-center/whats-new/';
my $regex = qr/android\.com\/(intl\/[a-zA-Z]{2}\_[a-zA-Z]{2}\/)?$/mp;
if ( $str =~ /$regex/g ) {
print "Whole match is ${^MATCH} and its start/end positions can be obtained via \$-[0] and \$+[0]\n";
# print "Capture Group 1 is $1 and its start/end positions can be obtained via \$-[1] and \$+[1]\n";
# print "Capture Group 2 is $2 ... and so on\n";
}
# ${^POSTMATCH} and ${^PREMATCH} are also available with the use of '/p'
# Named capture groups can be called via $+{name}
Please keep in mind that these code samples are automatically generated and are not guaranteed to work. If you find any syntax errors, feel free to submit a bug report. For a full regex reference for Perl, please visit: http://perldoc.perl.org/perlre.html