Help for this page

Select Code to Download


  1. or download this
    for (@filenames) {
    s/CSS//;
...

# or written with a statement modifier:
# s/CSS// for @filenames;
  2. or download this
    for (@filenames) {
    s{           # substitute 
...
    }
    {$1}x;       # against the capture above
}
  3. or download this
    for (@filenames) {
    s/CSS(\.[^\.]+\.ErrorLog)$/$1/; # remove CSS from end of antepenul
+timate token
}
  4. or download this
    for (@filenames) {
    if (/CSS/) {
...
        $_ = join '.', @t;
    }
}