從一堆文字中找出所有URL連結 by perl @ deh3215

my $str3="
Dear Key Bank customer. Please read this message and follow it's instructions
Confirm Your Identity:
We are performing maintenance, which may interfere with access to your Online Services. Due to these technical updates your online account has been flagged and we must confirm that you are the rightful owner of the account. To Confirm Your Identity click the link below, Please make sure you do this in a timely fashion as we look forward of bringing you updates regularly
To get started, please click the link below:
http://accounts.keybank.com/ConfirmHelp?start=yes
Important information from Key Bank.This e-mail contains information directly related to your account with us, other services to which you have subscribed, and/or any application you may have submitted.
Key Bank and its service providers are committed to protecting your privacy and ask you not to send sensitive account information through e-mail.
Key Values Diversity .http://erasingines.nm.ru/singin.e-Bay.com.html KeyBank is an Equal Housing Lender .By accessing and using this website, you agree to the terms and conditions and important legal notices below.
User Agreement , Linking Disclaimer , Arbitration Provision , Security , and Privacy Policy
Copyright ?1998-2005, KeyCorp. All rights reserved. http://adwords.google.com.session-19391027597041593339.17489801771251761326.com69.ru
";
if (@num = $str3 =~ m{(https?://\S+)}ig) { #----URL連結末端必須是空白
for(my $i=0; $i<=$#num; $i++) {
print $num[$i],"\n";