tldr/pages/common/perl.md

# perl

> The Perl 5 language interpreter.
> More information: <https://www.perl.org>.

- Print lines from `stdin` [m/] matching regex1 and case insensitive [/i] regex2:

`perl -n -e 'print if m/{{regex1}}/ and m/{{regex2}}/i'`

- Say [-E] first match group, using a regexp, ignoring space in regex [/x] :

`perl -n -E 'say $1 if m/{{before}} (  {{group_regex}}  ) {{after}}/x'`

- [-i]n-place, with backup, [s/] substitute all occurrence [/g] of regex with replacement:

`perl -i'.bak' -p -e 's/{{regex}}/{{replacement}}/g' {{path/to/files}}`

- Use perl's inline documentation, some pages also available via man on linux:

`perldoc perlrun ; perldoc module ; perldoc -f splice; perldoc -q perlfaq1`