Reading unknown word on txt file

[über]

Lets say i have text file like this

Your name is x.

We dont know what the "x" is. Could you do a perl script that idenflies the name and then prints it on screen? I was thinking of that u could take all the next letters in the same line where there reads "Your name is". Sorry if i dont got any code with me, this is just too complicated for me.

[KevinADC]

People that do not demonstrate any effort rarely get help with code. This is not one of those rare instances. Lets see what you have tried. You can use a regexp to do this.

[über]

I got some code now but it doesnt work

#!/usr/bin/perl


$data_file="file.txt";
open(DAT, $data_file);
@raw_data=<DAT>;
    while (@raw_data)
    {   if (/Your name is/)
        {   print @raw_data;
        }
    }
close(DAT);

[KevinADC]

close....

#!/usr/bin/perl
 
 
$data_file="file.txt";
open(DAT, $data_file) or die "$!";
@raw_data=<DAT>;
for (@raw_data) {
   if (/Your name is (\w+)/i) {
      print "name = $1\n"
   }
}
close(DAT);

it is also recommened to always use "strict" and "warnings" in your perl programs.