Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- my $fn = 'P2.txt';
- open ( my $fh, '<', $fn ) or die "Could not open file '$fn': $!";
- my $str = do { local $/; <$fh> };
- close $fh;
- my @result = $str =~ /"(.*?)"/g;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement