#!/usr/bin/perl -w
use strict;
my $str = "this has %bar that looks like a hash";
print $str;