#!/usr/bin/perl -w$var = qq("Double-quoted string.");print "$var\n";$var = qq~String with "double" and 'single' quotes~;print "$var\n";