@a = grep /^http/, split / /, $str;