# perl

> The Perl 5 language interpreter.
> See also: `perldoc`.
> More information: <https://perldoc.perl.org/perl>.

- Print lines from `stdin` [m]atching `regex1` and case [i]nsensitive `regex2`:

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

- Say ([-E]) first match group, using a `regex`, ignoring space ([x]) in `regex`:

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

- [i]n-place, with backup, [s]ubstitute all occurrence ([g]) of `regex` with a replacement:

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