Select Code to Download

c:\@Work\Perl\monks>perl -wMstrict -le
"sub stars { return \ ('*' x $_[0]); }
...
 print qq{'$str'};
"
'foo-*****-bar'

c:\@Work\Perl\monks>perl -wMstrict -le
"sub stars { return '*' x $_[0]; }
...
 print qq{'$str'};
"
'foo*****=======bar'