Help for this page
/[^\\]\\((\\)+\1)*$/
#!/usr/bin/perl -w ... }; foreach $var (@split) {print "$var" . "\n"};