use Regexp::Common qw /whitespace/; while (<>) { s/$RE{ws}{crop}//g; # Delete surrounding whitespace }
Do not use this module directly, but load it via Regexp::Common.
For example:
$str =~ s/$RE{ws}{crop}//g; # Delete surrounding whitespace
The call:
$RE{ws}{crop}->subs($str);
is optimized (but probably still slower than doing the s///g explicitly).
This pattern does not capture under "-keep".
For a start, there are many common regexes missing. Send them in to regexp-common@abigail.be.
This module is free software, and maybe used under any of the following licenses:
1) The Perl Artistic License. See the file COPYRIGHT.AL. 2) The Perl Artistic License 2.0. See the file COPYRIGHT.AL2. 3) The BSD License. See the file COPYRIGHT.BSD. 4) The MIT License. See the file COPYRIGHT.MIT.