#!/usr/bin/perl -w$var = q~String with "double" and 'single' quotes~;print "$var\n";#The tilde character (~) is a replacement for the single-quote character. #This allows your input data to contain single or double quotes.