$myvar = qq(Tom said "hi. It's me," and Sally replied "get lost, Ovid is more my style. Doncha think?"); $myvar =~ /"(.*)"/; print $1;