perl -Mstrict -le 'my $s="blah"; print "%$s%"'