use Regexp::Common qw /delimited/;
$str =~ /^$RE{delimited}{-delim=>'/'}$/;