#!/usr/bin/perl

use strict;
use warnings;

my $file = '/path/to/file.txt';
my $pattern = qr/müller/;

open my $fh, '<',$file or die $!;
while(my $line = <$fh>){
    if($line =~ /$pattern/){
        print $line;
    }
}
close $fh;