#!/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.