［Perl］指定行の削除

Question

前提

Perlのスクリプトで、指定した行数の行を削除したいです。

実現したいこと

$TEST に以下の値があるとして

# echo $TEST
aaa
bbb
ccc
ddd
eee
fff

3行目と5行目（cccとeee）を削除したいです。

# echo $TEST
aaa
bbb
ddd
fff

スクリプトで変数内の指定行を削除するには
どのようにすればよろしいでしょうか？
ご教授願います。

Answer 1

Smart match を使いたいところですが、怒られるので以下の様にします。

#!/bin/bash

TEST=$(cat <<EOT
aaa
bbb
ccc
ddd
eee
fff
EOT
)

TEST=$(echo "$TEST" | perl -nle 'print if $. != 3 and $. != 5')
#TEST=$(echo "$TEST" | perl -nle 'print unless $. ~~ [3, 5]')

echo "$TEST"