>perl -wMstrict -le
"my $def = 'hi there';
 my @jkl = qw(foo bar);
 ;;
 my $str1 = qq{abc$def};
 my $str2 = qq{ghi@jkl};
 ;;
 print qq{str1: :$str1:};
 print qq{str2: :$str2:};
 ;;
 my $str3 = 'pqr$def';
 my $str4 = 'xyz@jkl';
 ;;
 print qq{str3: :$str3:};
 print qq{str4: :$str4:};
 ;;
 ;;
 print 'enter password: ';
 my $pw = <STDIN>;
 chomp $pw;
 ;;
 print qq{pw: :$pw:}
"
str1: :abchi there:
str2: :ghifoo bar:
str3: :pqr$def:
str4: :xyz@jkl:
enter password:
open@sez$me
pw: :open@sez$me: