# On the commandline
 perl -0wne'print "$_\n" for /img\s+src="([^"]+)"/igsm'  filename