Вывод строк файла, содержащих заданную подстроку

#!/usr/bin/perl
    open(PASS, "</home/oleg/name") || die "Файл не найден!";
    $PASS=~"/the/";
    
        print $PASS;
        
    close(PASS);

#!perl
 
# требует объявления переменных
use strict;
# выводит не только ошибки, но и опасные моменты
use warnings;
 
# открываем файл на чтение, если не открывается - прекращаем работу
# с выводом сообщения в консоль
open(my $in, "<", "text.txt") || die("Error open text.txt\n");
# последовательно перебираем строки файла с присвоение содержимого
# текущей строки переменной $x
foreach my $x (<$in>) {
    # проверяем, встречается ли в строке the, причём до этого
    # должно быть начало строки или не слово, а после - конец строки или
    # не слово. регистр игнорируется
    # при этом сюда не попадёт thematic, cathether и т.д., только the
    if ($x =~ /(\A|\W)the(\W|\Z)/i) {
        # если условия выполнены, выводим строку
        print $x;
    } 
}
# закрываем файл
close($in);

/\bthe\b/i

while (my $x = <$in>) { ... }

#!/usr/bin/perl
open ( dasd, "/home/oleg/name") || die "Файл не найден!\n";
while($dd=<dasd>)
{
    if ($dd=~ /\sthe\s/)
        {
        print $dd;
        }
}
close(dasd);

$dd=~ /\sthe\s/