use strict;
my $str = 'https://soundcloud.com/deejay-la-x
https://soundcloud.com/deejay-la-x/my-christmas-mix-with-tarmac
sdasdddd
https://soundcloud.com/golden-rose-428706194/drip-vol2
https://soundcloud.com/karyomusic/karyo-my-neck-lick-it?utm_source=clipboard&utm_medium=text&utm_campaign=social_sharing
https://soundcloud.com/rnjonesnc/sets/30-flights-of-elevation
https://on.soundcloud.com/5dTNx
<iframe width="100%" height="300" scrolling="no" frameborder="no" allow="autoplay" src="https://w.soundcloud.com/player/?url=https%3A//api.soundcloud.com/tracks/923619058&color=%23ff5500&auto_play=false&hide_related=false&show_comments=true&show_user=true&show_reposts=false&show_teaser=true&visual=true"></iframe><div style="font-size: 10px; color: #cccccc;line-break: anywhere;word-break: normal;overflow: hidden;white-space: nowrap;text-overflow: ellipsis; font-family: Interstate,Lucida Grande,Lucida Sans Unicode,Lucida Sans,Garuda,Verdana,Tahoma,sans-serif;font-weight: 100;"><a href="https://soundcloud.com/kaytranada" title=""KKAAYYTTRRAA"" target="_blank" style="color: #cccccc; text-decoration: none;">"KKAAYYTTRRAA"</a> ยท <a href="https://soundcloud.com/kaytranada/love-is-stronger-than-pride-kaytra-edit" title="LOVE IS STRONGER THAN PRIDE (KAYTRA EDIT)" target="_blank" style="color: #cccccc; text-decoration: none;">LOVE IS STRONGER THAN PRIDE (KAYTRA EDIT)</a></div>
';
my $regex = qr/(?:(https?):\/\/)?(?:(?:www|m|api)\.)?(soundcloud\.com|snd\.sc)\/+([a-zA-Z0-9\-\.]+\/*[a-zA-Z0-9\-\.]*\/*[a-zA-Z0-9\-\.]*)/mip;
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