usr bin perl str img http img if str img http img ig print TRUE else p

#!/usr/bin/perl                                                                                                     


$str = '[img]http://a&s[/img]';

if ($str =~ m/\[img\]http:\/\/.*?[\?|\&].*?\[\/img\]/ig){
    print "TRUE\n";
}else{
    print "FALSE";
}