#!/usr/local/bin/perl
$string1 = '$1.99';
$string2 = '$string1';
$string3 = "$string1";
print "$string1 \n$string2 \n$string3 \n";