[tpm] I wish I was better at regex's

[Fulko Hew]

On Wed, Mar 9, 2011 at 1:48 PM, Shaun Fryer <sfryer at sourcery.ca> wrote:

> my $strip = qr{;[^\;]+$};
> while (<DATA>) {
>    chomp;
>    $_ =~ s/$strip//;
>    print $_, "\n";
> }
>

Congratulations Shaun, you win the prize! (a free beer at the next meeting),
but.
can you explain it to me? and why it manages to avoid quotes;
I don't see how it does what it does.
... just another sign that is time to retire :-(
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/toronto-pm/attachments/20110309/a255f5dd/attachment.html>