Help for this page

Select Code to Download

Select or download this
```
The array contents are
...
```

Select or download this

my @a = qw/C:\abc\dfg\axy C:\abc\dfg\#@$#@$@\hwllo/;
for ( @a ) {
    my @p = split /\\/;
    print "last-component= ", $p[-1], " and next-to-last= ", $p[-2], "
+\n";
}