How to do shell script with quotes

Scripting Forums AppleScript | Mac OS X
#1

Anybody know ho to concatente this perl script into a do shell script:
ioreg -l -n AirPortDriver | grep APCurrentSSID | sed 's/^.*= "\(.*\)".*$/\1/; s/ /_/g'

(it should render the Airport zone name)

#2

you have to stick a backslash () in front of each double-quote mark and each backslash within the shell script

do shell script "ioreg -l -n AirPortDriver | grep APCurrentSSID  | sed 's/^.*= \"\\(.*\\)\".*$/\\1/; s/ /_/g'"