$li ="aaaa g f mj  http://www.jkghfdjbh.org jgbmhj gkhkh " ;
if($li=~m/http://www.[a-z]|[A-Z].[a-z]/i)
{
   print "$& \n";
}