Help for this page

Select Code to Download


  1. or download this
    use strict;
my @input = ("A/B/C/D/E/F/", "A/B/C/D/","A/B/C/D","A/B/C/", "A/B/C","A
+/B","A");
foreach (@input){
  print "$1\n" if m|((?:\w+/){4})|;
}
  2. or download this
    A/B/C/D/
A/B/C/D/
  3. or download this
    A/B/C/D/
A/B/C/D/
...
A/B/C
A/B
A