#! /usr/bin/perl

use strict;
use warnings;

my $file = '/Pfad/zur/Datei.txt';
open(my $fh,"<$file") or die $!;
while(<$fh>){
  print if(/5ug1/.../6*End/);
}
close $fh;