How to match string that contain exact 3 time occurrence of special character in perl

Question

I have try few method to match a word that contain exact 3 times slash but cannot work. Below are the example

@array = qw( abc/ab1/abc/abc a2/b1/c3/d4/ee w/5         


        

Answer 1

You need to match

• a slash
• surrounded by some non-slashes (^(?:[^\/]*)
• repeating the match exactly three times
• and enclosing the whole triple in start of line and and of line anchors:

$string =~ /^(?:[^\/]*\/[^\/]*){3}$/;