Perl Extract Specific Line with the string in the text file

Question

I am new to Perl, I have read the text file by using foreach, however I wanted the different output

my $data =\'cat /path/in/my/dir\'; 
foreach(@data){
print