##</code><code>##

#linux quoting
perl -MAudio::Beep -e 'for("--.. . -. - .- .-. .-"=~/./g){ /\./ ? beep(1000,100) : /\-/ ? beep(1000,200) : sleep 1}'

#double quoting
perl -MAudio::Beep -e "for('--.. . -. - .- .-. .-'=~/./g){ /\./ ? beep(1000,100) : /\-/ ? beep(1000,200) : sleep 1}"