while (<>)
{
    open IN, $_ || die $!;
    while (<IN>)
    {
        if (m!https?://([^/"'\s]+)!)
        {
            print "'$1'\n";
        }
    }
    close IN;
}