if ( $line =~ m/(https?:[^"]+")/ ) 

##</code><code>##

if ( $line =~ m/(https?:.+?")/ )