- or download this
my $test = qq|
sdfiojs pfojsdfs fs [img]sdj fpsdofj spojf sfsf [b] [img]http://www.te
+st.com/image.gif[/img] dfs fs
s fsf sfd [img]test.gif[/img]
...
while ($test =~ /\[img\](.+?)\[\/img\]/g) {
print "$1 \n";
}
- or download this
C:\Users\Andy>perl test.pl
sdj fpsdofj spojf sfsf [b] [img]http://www.test.com/image.gi
test.gif
- or download this
C:\Users\Andy>perl test.pl
http://www.test.com/image.gif
test.gif