Timothy B wrote: "Hello out there - I have learned a lot of Perl today, but I am still trying to figure one more thing out. How can I go through a file and extract all the text between certain delimiters - for example I have: Bilbo, "Why I like rings" Freemont Press, 1998. Frodo, "Why I don't" Bridgedale Freemans, 1832 Etc I want to get: Why I like rings Why I don't It seems like there should be a real quick way to do this. . . thoughts?
tim" You could look at the page and see what the phrases have in common, then make a regex delimiter to extract them. see below: #!/usr/bin/perl -w use strict; my $bilbo = "Bilbo,\"Why I like rings\" Freemont Press, 1998,"; my $frodo = "Frodo, \"Why I don't\" Bridgedale Freemans, 183"; my @array=($bilbo,$frodo); #I want to get: #Why I like rings #Why I don't foreach(@array){ (/(".*")/) ? print $1 . "\n" : print "not your string\n"; } In the above example i had to escape the quotes to use them. If you have a whole plain text file of you can just use the open(FILE, "myHobit") || die "$!"; then use a similar search. Have fun. -dw5