if($String =~ /[^\/]*\.js/ )
# or
       if($String =~ m![^/]*\.js! )