$example = "This is an example";

while(<DATA>)
{
        chomp;
        s/^\$//;
        print $$_;
}

__DATA__
$example