use warnings;
use strict;

my $filename = 'myfile';

open my $fh, '<', $filename or die "opening '$filename': $!";

while (<$fh>) {
    if (m{ ("\w+") }xms) {
        print "$1 \n";
        }
    }

close $fh;