in reply to Grab everything not matched by regexp

You might substitue away anything you match, i.e. instead of 

($status) = $folder =~ m/(FINAL|DRAFT)/;

[download]

use

$folder =~ s/(FINAL|DRAFT)//;
$status=$1;

[download]

Replies are listed 'Best First'.
Re^2: Grab everything not matched by regexp
by Kerplunk (Acolyte) on Feb 23, 2010 at 14:03 UTC

    Yes, I think that's it. Thanks very much; and for incidentally pointing out the use of $1, which I wasn't familiar with.

[reply]
[d/l]

In Section Seekers of Perl Wisdom