Extrakce retezce mezi uvozovkami

[Jan ' Kozo ' Vajda]

:>    Mam retezec $a = 'neco "neco jineho"' a chci z nej pomoci s// operatoru
:> vytahnout to, co je mezi uvozovkami. Bohuzel mi vubec nic nefunguje. Neco
:> jako $a =~ s/"(.*)"/$1/ nefunguje.

skus $a =~ s#"(.*)"#$1#;
alebo
$a =~ s/\"(.*)\"/$1/;

		                                   K O Z O 
                		    ===================================
                                      Look At Your Young Man Fighting
                                         Look At Your Woman Crying
                                       Look At Your Young Man Dying
                                    The Way They've Always Done Before